X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlvar.pod;h=b9b0ce6c0a259b5c470f7d15c4be57ac21a16d80;hb=c8984b0bd19897e6e30588055ac0338326f20a34;hp=2cb95afe0507d79a9111d24372e3ee8370123e4e;hpb=7b8d334a971230040a212bc5038097b3f600a094;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pod/perlvar.pod b/pod/perlvar.pod index 2cb95af..b9b0ce6 100644 --- a/pod/perlvar.pod +++ b/pod/perlvar.pod @@ -6,17 +6,26 @@ perlvar - Perl predefined variables =head2 Predefined Names -The following names have special meaning to Perl. Most of the +The following names have special meaning to Perl. Most punctuation names have reasonable mnemonics, or analogues in one of -the shells. Nevertheless, if you wish to use the long variable names, +the shells. Nevertheless, if you wish to use long variable names, you just need to say use English; at the top of your program. This will alias all the short names to the -long names in the current package. Some of them even have medium names, +long names in the current package. Some even have medium names, generally borrowed from B. +Due to an unfortunate accident of Perl's implementation, "C" +imposes a considerable performance penalty on all regular expression +matches in a program, regardless of whether they occur in the scope of +"C". For that reason, saying "C" in +libraries is strongly discouraged. See the Devel::SawAmpersand module +documentation from CPAN +(http://www.perl.com/CPAN/modules/by-module/Devel/Devel-SawAmpersand-0.10.readme) +for more information. + To go a step further, those variables that depend on the currently selected filehandle may instead (and preferably) be set by calling an object method on the FileHandle object. (Summary lines below for this @@ -28,7 +37,7 @@ after which you may use either method HANDLE EXPR -or +or more safely, HANDLE->method(EXPR) @@ -112,11 +121,11 @@ test. Note that outside of a C test, this will not happen. =over 8 -=item $EIE +=item $EIE Contains the subpattern from the corresponding set of parentheses in the last pattern matched, not counting patterns matched in nested -blocks that have been exited already. (Mnemonic: like \digit.) +blocks that have been exited already. (Mnemonic: like \digits.) These variables are all read-only. =item $MATCH @@ -127,6 +136,10 @@ The string matched by the last successful pattern match (not counting any matches hidden within a BLOCK or eval() enclosed by the current BLOCK). (Mnemonic: like & in some editors.) This variable is read-only. +The use of this variable anywhere in a program imposes a considerable +performance penalty on all regular expression matches. See the +Devel::SawAmpersand module from CPAN for more information. + =item $PREMATCH =item $` @@ -136,6 +149,10 @@ pattern match (not counting any matches hidden within a BLOCK or eval enclosed by the current BLOCK). (Mnemonic: C<`> often precedes a quoted string.) This variable is read-only. +The use of this variable anywhere in a program imposes a considerable +performance penalty on all regular expression matches. See the +Devel::SawAmpersand module from CPAN for more information. + =item $POSTMATCH =item $' @@ -151,6 +168,10 @@ string.) Example: This variable is read-only. +The use of this variable anywhere in a program imposes a considerable +performance penalty on all regular expression matches. See the +Devel::SawAmpersand module from CPAN for more information. + =item $LAST_PAREN_MATCH =item $+ @@ -164,6 +185,19 @@ example: (Mnemonic: be positive and forward looking.) This variable is read-only. +=item @+ + +$+[0] is the offset of the end of the last successfull match. +C<$+[>IC<]> is the offset of the end of the substring matched by +I-th subpattern, or undef if the subpattern did not match. + +Thus after a match against $_, $& coincides with C. Similarly, C<$>I coincides with CIC<], +$+[>IC<] - $-[>IC<]> if C<$-[>IC<]> is defined, and $+ coincides with +C. One can use C<$#+> to find the number +of subgroups in the last successful match. Note the difference with +C<$#->, which is the last I subgroup. Compare with L<"@-">. + =item $MULTILINE_MATCHING =item $* @@ -176,7 +210,8 @@ is 0. (Mnemonic: * matches multiple things.) Note that this variable influences the interpretation of only "C<^>" and "C<$>". A literal newline can be searched for even when C<$* == 0>. -Use of "C<$*>" is deprecated in modern perls. +Use of "C<$*>" is deprecated in modern Perls, supplanted by +the C and C modifiers on pattern matching. =item input_line_number HANDLE EXPR @@ -222,6 +257,27 @@ character belongs to the next paragraph, even if it's a newline. Remember: the value of $/ is a string, not a regexp. AWK has to be better for something :-) +Setting $/ to a reference to an integer, scalar containing an integer, or +scalar that's convertable to an integer will attempt to read records +instead of lines, with the maximum record size being the referenced +integer. So this: + + $/ = \32768; # or \"32768", or \$var_containing_32768 + open(FILE, $myfile); + $_ = ; + +will read a record of no more than 32768 bytes from FILE. If you're not +reading from a record-oriented file (or your OS doesn't have +record-oriented files), then you'll likely get a full chunk of data with +every read. If a record is larger than the record size you've set, you'll +get the record back in pieces. + +On VMS, record reads are done with the equivalent of C, so it's +best not to mix record and non-record reads on the same file. (This is +likely not a problem, as any file you'd want to read in record mode is +proably usable in line mode) Non-VMS systems perform normal I/O, so +it's safe to mix record and non-record reads of a file. + =item autoflush HANDLE EXPR =item $OUTPUT_AUTOFLUSH @@ -351,6 +407,20 @@ output channel. Default is 60. (Mnemonic: = has horizontal lines.) The number of lines left on the page of the currently selected output channel. (Mnemonic: lines_on_page - lines_printed.) +=item @- + +$-[0] is the offset of the start of the last successfull match. +C<$-[>IC<]> is the offset of the start of the substring matched by +I-th subpattern, or undef if the subpattern did not match. + +Thus after a match against $_, $& coincides with C. Similarly, C<$>I coincides with CIC<], +$+[>IC<] - $-[>IC<]> if C<$-[>IC<]> is defined, and $+ coincides with +C. One can use C<$#-> to find the last +matched subgroup in the last successful match. Note the difference with +C<$#+>, which is the number of subgroups in the regular expression. Compare +with L<"@+">. + =item format_name HANDLE EXPR =item $FORMAT_NAME @@ -406,12 +476,11 @@ L. =item $? The status returned by the last pipe close, backtick (C<``>) command, -or system() operator. Note that this is the status word returned by -the wait() system call (or else is made up to look like it). Thus, -the exit value of the subprocess is actually (C<$? EE 8>), and -C<$? & 255> gives which signal, if any, the process died from, and -whether there was a core dump. (Mnemonic: similar to B and -B.) +or system() operator. Note that this is the status word returned by the +wait() system call (or else is made up to look like it). Thus, the exit +value of the subprocess is actually (C<$? EE 8>), and C<$? & 127> +gives which signal, if any, the process died from, and C<$? & 128> reports +whether there was a core dump. (Mnemonic: similar to B and B.) Additionally, if the C variable is supported in C, its value is returned via $? if any of the C functions fail. @@ -427,6 +496,8 @@ Under VMS, the pragma C makes C<$?> reflect the actual VMS exit status, instead of the default emulation of POSIX status. +Also see L. + =item $OS_ERROR =item $ERRNO @@ -442,6 +513,8 @@ to C<$!> to set I if, for instance, you want C<"$!"> to return the string for error I, or you want to set the exit value for the die() operator. (Mnemonic: What just went bang?) +Also see L. + =item $EXTENDED_OS_ERROR =item $^E @@ -469,6 +542,8 @@ via C<$!>. Caveats mentioned in the description of C<$!> generally apply to C<$^E>, also. (Mnemonic: Extra error explanation.) +Also see L. + =item $EVAL_ERROR =item $@ @@ -482,6 +557,8 @@ Note that warning messages are not collected in this variable. You can, however, set up a routine to process warnings by setting C<$SIG{__WARN__}> as described below. +Also see L. + =item $PROCESS_ID =item $PID @@ -597,6 +674,15 @@ of perl in the right bracket?) Example: See also the documentation of C and C for a convenient way to fail if the Perl interpreter is too old. +=item $COMPILING + +=item $^C + +The current value of the flag associated with the B<-c> switch. Mainly +of use with B<-MO=...> to allow code to alter its behaviour when being compiled. +(For example to automatically AUTOLOADing at compile time rather than normal +deferred loading.) Setting C<$^C = 1> is similar to calling C. + =item $DEBUGGING =item $^D @@ -614,7 +700,7 @@ descriptors are not. Also, during an open(), system file descriptors are preserved even if the open() fails. (Ordinary file descriptors are closed before the open() is attempted.) Note that the close-on-exec status of a file descriptor will be decided according to the value of -C<$^F> at the time of the open, not the time of the exec. +C<$^F> when the open() or pipe() was called, not the time of the exec(). =item $^H @@ -688,6 +774,12 @@ Start with single-step on. Note that some bits may be relevent at compile-time only, some at run-time only. This is a new mechanism and the details may change. +=item $^R + +The result of evaluation of the last successful L> +regular expression assertion. (Excluding those used as switches.) May +be written to. + =item $^S Current state of the interpreter. Undefined if parsing of the current @@ -753,12 +845,16 @@ specified, and the value is the location of the file actually found. The C command uses this array to determine whether a given file has already been included. -=item %ENV $ENV{expr} +=item %ENV + +=item $ENV{expr} The hash %ENV contains your current environment. Setting a value in C changes the environment for child processes. -=item %SIG $SIG{expr} +=item %SIG + +=item $SIG{expr} The hash %SIG is used to set signal handlers for various signals. Example: @@ -776,6 +872,10 @@ signals. Example: $SIG{'INT'} = 'DEFAULT'; # restore default action $SIG{'QUIT'} = 'IGNORE'; # ignore SIGQUIT +Using a value of C<'IGNORE'> usually has the effect of ignoring the +signal, except for the C signal. See L for more about +this special case. + The %SIG array contains values for only the signals actually set within the Perl script. Here are some other examples: @@ -848,3 +948,54 @@ See L, L and L for additional info. =back + +=head2 Error Indicators + +The variables L<$@>, L<$!>, L<$^E>, and L<$?> contain information about +different types of error conditions that may appear during execution of +Perl script. The variables are shown ordered by the "distance" between +the subsystem which reported the error and the Perl process, and +correspond to errors detected by the Perl interpreter, C library, +operating system, or an external program, respectively. + +To illustrate the differences between these variables, consider the +following Perl expression: + + eval ' + open PIPE, "/cdrom/install |"; + @res = ; + close PIPE or die "bad pipe: $?, $!"; + '; + +After execution of this statement all 4 variables may have been set. + +$@ is set if the string to be C-ed did not compile (this may happen if +C or C were imported with bad prototypes), or if Perl +code executed during evaluation die()d (either implicitly, say, +if C was imported from module L, or the C after +C was triggered). In these cases the value of $@ is the compile +error, or C error (which will interpolate C<$!>!), or the argument +to C (which will interpolate C<$!> and C<$?>!). + +When the above expression is executed, open(), C<>, and C +are translated to C run-time library calls. $! is set if one of these +calls fails. The value is a symbolic indicator chosen by the C run-time +library, say C. + +On some systems the above C library calls are further translated +to calls to the kernel. The kernel may have set more verbose error +indicator that one of the handful of standard C errors. In such cases $^E +contains this verbose error indicator, which may be, say, C. On systems where C library calls are identical to system calls +$^E is a duplicate of $!. + +Finally, $? may be set to non-C<0> value if the external program +C fails. Upper bits of the particular value may reflect +specific error conditions encountered by this program (this is +program-dependent), lower-bits reflect mode of failure (segfault, completion, +etc.). Note that in contrast to $@, $!, and $^E, which are set only +if error condition is detected, the variable $? is set on each C or +pipe C, overwriting the old value. + +For more details, see the individual descriptions at L<$@>, L<$!>, L<$^E>, +and L<$?>.