PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


NAME
       perlfaq - frequently asked questions about Perl ($Date:
       1999/04/29 22:52:10 $)



DESCRIPTION
       This document is structured into the following sections:

       perlfaq: Structural overview of the FAQ.
            This document.

       the perlfaq1 manpage: General Questions About Perl
            Very general, high-level information about Perl.

       - What is Perl?

       - Who supports Perl?  Who develops it?  Why is it free?

       - Which version of Perl should I use?

       - What are perl4 and perl5?

       - What is perl6?

       - How stable is Perl?

       - Is Perl difficult to learn?

       - How does Perl compare with other languages like Java,
                Python, REXX, Scheme, or Tcl?

       - Can I do [task] in Perl?

       - When shouldn't I program in Perl?

       - What's the difference between """"perl"""" and
                """"Perl""""?

       - Is it a Perl program or a Perl script?

       - What is a JAPH?

       - Where can I get a list of Larry Wall witticisms?

       - How can I convince my sysadmin/supervisor/employees to
                use version (5/5.005/Perl instead of some other
                language)?

       the perlfaq2 manpage: Obtaining and Learning about Perl
            Where to find source and documentation to Perl,
            support, and related matters.

       - What machines support Perl?  Where do I get it?





29/Apr/1999            perl 5.005, patch 03                     1





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - How can I get a binary version of Perl?

       - I don't have a C compiler on my system.  How can I
                compile perl?

       - I copied the Perl binary from one machine to another,
                but scripts don't work.

       - I grabbed the sources and tried to compile but
                gdbm/dynamic loading/malloc/linking/... failed.
                How do I make it work?

       - What modules and extensions are available for Perl?
                What is CPAN?  What does CPAN/src/... mean?

       - Is there an ISO or ANSI certified version of Perl?

       - Where can I get information on Perl?

       - What are the Perl newsgroups on USENET?  Where do I post
                questions?

       - Where should I post source code?

       - Perl Books

       - Perl in Magazines

       - Perl on the Net: FTP and WWW Access

       - What mailing lists are there for perl?

       - Archives of comp.lang.perl.misc

       - Where can I buy a commercial version of Perl?

       - Where do I send bug reports?

       - What is perl.com?

       the perlfaq3 manpage: Programming Tools
            Programmer tools and programming support.

       - How do I do (anything)?

       - How can I use Perl interactively?

       - Is there a Perl shell?

       - How do I debug my Perl programs?

       - How do I profile my Perl programs?





29/Apr/1999            perl 5.005, patch 03                     2





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - How do I cross-reference my Perl programs?

       - Is there a pretty-printer (formatter) for Perl?

       - Is there a ctags for Perl?

       - Is there an IDE or Windows Perl Editor?

       - Where can I get Perl macros for vi?

       - Where can I get perl-mode for emacs?

       - How can I use curses with Perl?

       - How can I use X or Tk with Perl?

       - How can I generate simple menus without using CGI or Tk?

       - What is undump?

       - How can I make my Perl program run faster?

       - How can I make my Perl program take less memory?

       - Is it unsafe to return a pointer to local data?

       - How can I free an array or hash so my program shrinks?

       - How can I make my CGI script more efficient?

       - How can I hide the source for my Perl program?

       - How can I compile my Perl program into byte code or C?

       - How can I compile Perl into Java?

       - How can I get #!perl to work on [MS-DOS,NT,...]?

       - Can I write useful perl programs on the command line?

       - Why don't perl one-liners work on my DOS/Mac/VMS system?

       - Where can I learn about CGI or Web programming in Perl?

       - Where can I learn about object-oriented Perl
                programming?

       - Where can I learn about linking C with Perl? [h2xs,
                xsubpp]

       - I've read perlembed, perlguts, etc., but I can't embed
                perl in my C program, what am I doing wrong?





29/Apr/1999            perl 5.005, patch 03                     3





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - When I tried to run my script, I got this message. What
                does it mean?

       - What's MakeMaker?

       the perlfaq4 manpage: Data Manipulation
            Manipulating numbers, dates, strings, arrays, hashes,
            and miscellaneous data issues.

       - Why am I getting long decimals (eg, 19.9499999999999)
                instead of the numbers I should be getting (eg,
                19.95)?

       - Why isn't my octal data interpreted correctly?

       - Does Perl have a round() function?  What about ceil()
                and floor()?  Trig functions?

       - How do I convert bits into ints?

       - Why doesn't & work the way I want it to?

       - How do I multiply matrices?

       - How do I perform an operation on a series of integers?

       - How can I output Roman numerals?

       - Why aren't my random numbers random?

       - How do I find the week-of-the-year/day-of-the-year?

       - How can I compare two dates and find the difference?

       - How can I take a string and turn it into epoch seconds?

       - How can I find the Julian Day?

       - How do I find yesterday's date?

       - Does Perl have a year 2000 problem?  Is Perl Y2K
                compliant?

       - How do I validate input?

       - How do I unescape a string?

       - How do I remove consecutive pairs of characters?

       - How do I expand function calls in a string?

       - How do I find matching/nesting anything?





29/Apr/1999            perl 5.005, patch 03                     4





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - How do I reverse a string?

       - How do I expand tabs in a string?

       - How do I reformat a paragraph?

       - How can I access/change the first N letters of a string?

       - How do I change the Nth occurrence of something?

       - How can I count the number of occurrences of a substring
                within a string?

       - How do I capitalize all the words on one line?

       - How can I split a [character] delimited string except
                when inside [character]? (Comma-separated files)

       - How do I strip blank space from the beginning/end of a
                string?

       - How do I pad a string with blanks or pad a number with
                zeroes?

       - How do I extract selected columns from a string?

       - How do I find the soundex value of a string?

       - How can I expand variables in text strings?

       - What's wrong with always quoting """"$vars""""?

       - Why don't my <<HERE documents work?

       - What is the difference between a list and an array?

       - What is the difference between $array[1] and @array[1]?

       - How can I extract just the unique elements of an array?

       - How can I tell whether a list or array contains a
                certain element?

       - How do I compute the difference of two arrays?  How do I
                compute the intersection of two arrays?

       - How do I test whether two arrays or hashes are equal?

       - How do I find the first array element for which a
                condition is true?

       - How do I handle linked lists?





29/Apr/1999            perl 5.005, patch 03                     5





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - How do I handle circular lists?

       - How do I shuffle an array randomly?

       - How do I process/modify each element of an array?

       - How do I select a random element from an array?

       - How do I permute N elements of a list?

       - How do I sort an array by (anything)?

       - How do I manipulate arrays of bits?

       - Why does defined() return true on empty arrays and
                hashes?

       - How do I process an entire hash?

       - What happens if I add or remove keys from a hash while
                iterating over it?

       - How do I look up a hash element by value?

       - How can I know how many entries are in a hash?

       - How do I sort a hash (optionally by value instead of
                key)?

       - How can I always keep my hash sorted?

       - What's the difference between """"delete"""" and
                """"undef"""" with hashes?

       - Why don't my tied hashes make the defined/exists
                distinction?

       - How do I reset an each() operation part-way through?

       - How can I get the unique keys from two hashes?

       - How can I store a multidimensional array in a DBM file?

       - How can I make my hash remember the order I put elements
                into it?

       - Why does passing a subroutine an undefined element in a
                hash create it?

       - How can I make the Perl equivalent of a C structure/C++
                class/hash or array of hashes or arrays?

       - How can I use a reference as a hash key?




29/Apr/1999            perl 5.005, patch 03                     6





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - How do I handle binary data correctly?

       - How do I determine whether a scalar is a
                number/whole/integer/float?

       - How do I keep persistent data across program calls?

       - How do I print out or copy a recursive data structure?

       - How do I define methods for every class/object?

       - How do I verify a credit card checksum?

       - How do I pack arrays of doubles or floats for XS code?

       the perlfaq5 manpage: Files and Formats
            I/O and the "f" issues: filehandles, flushing,
            formats and footers.

       - How do I flush/unbuffer an output filehandle?  Why must
                I do this?

       - How do I change one line in a file/delete a line in a
                file/insert a line in the middle of a file/append
                to the beginning of a file?

       - How do I count the number of lines in a file?

       - How do I make a temporary file name?

       - How can I manipulate fixed-record-length files?

       - How can I make a filehandle local to a subroutine?  How
                do I pass filehandles between subroutines?  How
                do I make an array of filehandles?

       - How can I use a filehandle indirectly?

       - How can I set up a footer format to be used with
                write()?

       - How can I write() into a string?

       - How can I output my numbers with commas added?

       - How can I translate tildes (~) in a filename?

       - How come when I open a file read-write it wipes it out?

       - Why do I sometimes get an """"Argument list too long""""
                when I use <*>?

       - Is there a leak/bug in glob()?




29/Apr/1999            perl 5.005, patch 03                     7





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - How can I open a file with a leading """">"""" or
                trailing blanks?

       - How can I reliably rename a file?

       - How can I lock a file?

       - Why can't I just open(FH, """">file.lock")?

       - I still don't get locking.  I just want to increment the
                number in the file.  How can I do this?

       - How do I randomly update a binary file?

       - How do I get a file's timestamp in perl?

       - How do I set a file's timestamp in perl?

       - How do I print to more than one file at once?

       - How can I read in a file by paragraphs?

       - How can I read a single character from a file?  From the
                keyboard?

       - How can I tell whether there's a character waiting on a
                filehandle?

       - How do I do a tail -f in perl?

       - How do I dup() a filehandle in Perl?

       - How do I close a file descriptor by number?

       - Why can't I use """"C:\temp\foo"""" in DOS paths?  What
                doesn't `C:\temp\foo.exe` work?

       - Why doesn't glob'*.*' get all the files?

       - Why does Perl let me delete read-only files?  Why does
                -i clobber protected files?  Isn't this a bug in
                Perl?

       - How do I select a random line from a file?

       - Why do I get weird spaces when I print an array of
                lines?

       the perlfaq6 manpage: Regexps
            Pattern matching and regular expressions.

       - How can I hope to use regular expressions without
                creating illegible and unmaintainable code?




29/Apr/1999            perl 5.005, patch 03                     8





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - I'm having trouble matching over more than one line.
                What's wrong?

       - How can I pull out lines between two patterns that are
                themselves on different lines?

       - I put a regular expression into $/ but it didn't work.
                What's wrong?

       - How do I substitute case insensitively on the LHS, but
                preserving case on the RHS?

       - How can I make \w match national character sets?

       - How can I match a locale-smart version of /[a-zA-Z]/?

       - How can I quote a variable to use in a regexp?

       - What is /o really for?

       - How do I use a regular expression to strip C style
                comments from a file?

       - Can I use Perl regular expressions to match balanced
                text?

       - What does it mean that regexps are greedy?  How can I
                get around it?

       - How do I process each word on each line?

       - How can I print out a word-frequency or line-frequency
                summary?

       - How can I do approximate matching?

       - How do I efficiently match many regular expressions at
                once?

       - Why don't word-boundary searches with \b work for me?

       - Why does using $&, $`, or $' slow my program down?

       - What good is \G in a regular expression?

       - Are Perl regexps DFAs or NFAs?  Are they POSIX
                compliant?

       - What's wrong with using grep or map in a void context?

       - How can I match strings with multibyte characters?

       - How do I match a pattern that is supplied by the user?




29/Apr/1999            perl 5.005, patch 03                     9





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       the perlfaq7 manpage: General Perl Language Issues
            General Perl language issues that don't clearly fit
            into any of the other sections.

       - Can I get a BNF/yacc/RE for the Perl language?

       - What are all these $@%* punctuation signs, and how do I
                know when to use them?

       - Do I always/never have to quote my strings or use
                semicolons and commas?

       - How do I skip some return values?

       - How do I temporarily block warnings?

       - What's an extension?

       - Why do Perl operators have different precedence than C
                operators?

       - How do I declare/create a structure?

       - How do I create a module?

       - How do I create a class?

       - How can I tell if a variable is tainted?

       - What's a closure?

       - What is variable suicide and how can I prevent it?

       - How can I pass/return a {Function, FileHandle, Array,
                Hash, Method, Regexp}?

       - How do I create a static variable?

       - What's the difference between dynamic and lexical
                (static) scoping?  Between local() and my()?

       - How can I access a dynamic variable while a similarly
                named lexical is in scope?

       - What's the difference between deep and shallow binding?

       - Why doesn't """"my($foo) = <FILE>;"""" work right?

       - How do I redefine a builtin function, operator, or
                method?

       - What's the difference between calling a function as &foo
                and foo()?




29/Apr/1999            perl 5.005, patch 03                    10





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - How do I create a switch or case statement?

       - How can I catch accesses to undefined
                variables/functions/methods?

       - Why can't a method included in this same file be found?

       - How can I find out my current package?

       - How can I comment out a large block of perl code?

       - How do I clear a package?

       the perlfaq8 manpage: System Interaction
            Interprocess communication (IPC), control over the
            user-interface (keyboard, screen and pointing
            devices).

       - How do I find out which operating system I'm running
                under?

       - How come exec() doesn't return?

       - How do I do fancy stuff with the keyboard/screen/mouse?

       - How do I print something out in color?

       - How do I read just one key without waiting for a return
                key?

       - How do I check whether input is ready on the keyboard?

       - How do I clear the screen?

       - How do I get the screen size?

       - How do I ask the user for a password?

       - How do I read and write the serial port?

       - How do I decode encrypted password files?

       - How do I start a process in the background?

       - How do I trap control characters/signals?

       - How do I modify the shadow password file on a Unix
                system?

       - How do I set the time and date?

       - How can I sleep() or alarm() for under a second?





29/Apr/1999            perl 5.005, patch 03                    11





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - How can I measure time under a second?

       - How can I do an atexit() or setjmp()/longjmp()?
                (Exception handling)

       - Why doesn't my sockets program work under System V
                (Solaris)? What does the error message
                """"Protocol not supported"""" mean?

       - How can I call my system's unique C functions from Perl?

       - Where do I get the include files to do ioctl() or
                syscall()?

       - Why do setuid perl scripts complain about kernel
                problems?

       - How can I open a pipe both to and from a command?

       - Why can't I get the output of a command with system()?

       - How can I capture STDERR from an external command?

       - Why doesn't open() return an error when a pipe open
                fails?

       - What's wrong with using backticks in a void context?

       - How can I call backticks without shell processing?

       - Why can't my script read from STDIN after I gave it EOF
                (^D on Unix, ^Z on MS-DOS)?

       - How can I convert my shell script to perl?

       - Can I use perl to run a telnet or ftp session?

       - How can I write expect in Perl?

       - Is there a way to hide perl's command line from programs
                such as """"ps""""?

       - I {changed directory, modified my environment} in a perl
                script.  How come the change disappeared when I
                exited the script?  How do I get my changes to be
                visible?

       - How do I close a process's filehandle without waiting
                for it to complete?

       - How do I fork a daemon process?

       - How do I make my program run with sh and csh?




29/Apr/1999            perl 5.005, patch 03                    12





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - How do I find out if I'm running interactively or not?

       - How do I timeout a slow event?

       - How do I set CPU limits?

       - How do I avoid zombies on a Unix system?

       - How do I use an SQL database?

       - How do I make a system() exit on control-C?

       - How do I open a file without blocking?

       - How do I install a CPAN module?

       - What's the difference between require and use?

       - How do I keep my own module/library directory?

       - How do I add the directory my program lives in to the
                module/library search path?

       - How do I add a directory to my include path at runtime?

       - What is socket.ph and where do I get it?

       the perlfaq9 manpage: Networking
            Networking, the Internet, and a few on the web.

       - My CGI script runs from the command line but not the
                browser. (500 Server Error)

       - How can I get better error messages from a CGI program?

       - How do I remove HTML from a string?

       - How do I extract URLs?

       - How do I download a file from the user's machine?  How
                do I open a file on another machine?

       - How do I make a pop-up menu in HTML?

       - How do I fetch an HTML file?

       - How do I automate an HTML form submission?

       - How do I decode or create those %-encodings on the web?

       - How do I redirect to another page?

       - How do I put a password on my web pages?




29/Apr/1999            perl 5.005, patch 03                    13





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       - How do I edit my .htpasswd and .htgroup files with Perl?

       - How do I make sure users can't enter values into a form
                that cause my CGI script to do bad things?

       - How do I parse a mail header?

       - How do I decode a CGI form?

       - How do I check a valid mail address?

       - How do I decode a MIME/BASE64 string?

       - How do I return the user's mail address?

       - How do I send mail?

       - How do I read mail?

       - How do I find out my hostname/domainname/IP address?

       - How do I fetch a news article or the active newsgroups?

       - How do I fetch/put an FTP file?

       - How can I do RPC in Perl?

       Where to get this document

       This document is posted regularly to
       comp.lang.perl.announce and several other related
       newsgroups.  It is available in a variety of formats from
       CPAN in the /CPAN/doc/FAQs/FAQ/ directory, or on the web
       at http://www.perl.com/perl/faq/ .

       How to contribute to this document

       You may mail corrections, additions, and suggestions to
       perlfaq-suggestions@perl.com .  This alias should not be
       used to ask FAQs.  It's for fixing the current FAQ.  Send
       questions to the comp.lang.perl.misc newsgroup.

       What will happen if you mail your Perl programming
       problems to the authors

       Your questions will probably go unread, unless they're
       suggestions of new questions to add to the FAQ, in which
       case they should have gone to the perlfaq-
       suggestions@perl.com instead.

       You should have read section 2 of this faq.  There you
       would have learned that comp.lang.perl.misc is the
       appropriate place to go for free advice.  If your question
       is really important and you require a prompt and correct



29/Apr/1999            perl 5.005, patch 03                    14





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       answer, you should hire a consultant.

Credits
       When I first began the Perl FAQ in the late 80s, I never
       realized it would have grown to over a hundred pages, nor
       that Perl would ever become so popular and widespread.
       This document could not have been written without the
       tremendous help provided by Larry Wall and the rest of the
       Perl Porters.

Author and Copyright Information
       Copyright (c) 1997-1999 Tom Christiansen and Nathan
       Torkington.  All rights reserved.

       Bundled Distributions

       When included as part of the Standard Version of Perl, or
       as part of its complete documentation whether printed or
       otherwise, this work may be distributed only under the
       terms of Perl's Artistic License.  Any distribution of
       this file or derivatives thereof outside of that package
       require that special arrangements be made with copyright
       holder.

       Irrespective of its distribution, all code examples in
       these files are hereby placed into the public domain.  You
       are permitted and encouraged to use this code in your own
       programs for fun or for profit as you see fit.  A simple
       comment in the code giving credit would be courteous but
       is not required.

       Disclaimer

       This information is offered in good faith and in the hope
       that it may be of use, but is not guaranteed to be
       correct, up to date, or suitable for any particular
       purpose whatsoever.  The authors accept no liability in
       respect of this information or its use.

Changes
       7/January/99
           Small touchups here and there.  Added all questions in
           this document as a sort of table of contents.

       22/June/98
           Significant changes throughout in preparation for the
           5.005 release.

       24/April/97
           Style and whitespace changes from Chip, new question
           on reading one character at a time from a terminal
           using POSIX from Tom.





29/Apr/1999            perl 5.005, patch 03                    15





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)


       23/April/97
           Added http://www.oasis.leo.org/perl/ to the perlfaq2
           manpage.  Style fix to the perlfaq3 manpage.  Added
           floating point precision, fixed complex number
           arithmetic, cross-references, caveat for Text::Wrap,
           alternative answer for initial capitalizing, fixed
           incorrect regexp, added example of Tie::IxHash to the
           perlfaq4 manpage.  Added example of passing and
           storing filehandles, added commify to the perlfaq5
           manpage.  Restored variable suicide, and added mass
           commenting to the perlfaq7 manpage.  Added
           Net::Telnet, fixed backticks, added reader/writer pair
           to telnet question, added FindBin, grouped module
           questions together in the perlfaq8 manpage.  Expanded
           caveats for the simple URL extractor, gave LWP
           example, added CGI security question, expanded on the
           mail address answer in the perlfaq9 manpage.

       25/March/97
           Added more info to the binary distribution section of
           the perlfaq2 manpage.  Added Net::Telnet to the
           perlfaq6 manpage.  Fixed typos in the perlfaq8
           manpage.  Added mail sending example to the perlfaq9
           manpage.  Added Merlyn's columns to the perlfaq2
           manpage.

       18/March/97
           Added the DATE to the NAME section, indicating which
           sections have changed.

           Mentioned SIGPIPE and the perlipc manpage in the
           forking open answer in the perlfaq8 manpage.

           Fixed description of a regular expression in the
           perlfaq4 manpage.

       17/March/97 Version
           Various typos fixed throughout.

           Added new question on Perl BNF on the perlfaq7
           manpage.

       Initial Release: 11/March/97
           This is the initial release of version 3 of the FAQ;
           consequently there have been no changes since its
           initial release.











29/Apr/1999            perl 5.005, patch 03                    16





PERLFAQ(1)       Perl Programmers Reference Guide      PERLFAQ(1)



























































29/Apr/1999            perl 5.005, patch 03                    17