8 English - use nice English (or awk) names for ugly punctuation variables
14 if ($ERRNO =~ /denied/) { ... }
18 This module provides aliases for the built-in variables whose
19 names no one seems to like to read. Variables with side-effects
20 which get triggered just by accessing them (like $0) will still
23 For those variables that have an B<awk> version, both long
24 and short English alternatives are provided. For example,
25 the C<$/> variable can be referred to either $RS or
26 $INPUT_RECORD_SEPARATOR if you are using the English module.
28 See L<perlvar> for a complete list of these.
32 This module provokes sizeable inefficiencies for regular expressions,
33 due to unfortunate implementation details. If performance matters,
34 consider avoiding English.
40 # Grandfather $NAME import
44 local $Exporter::ExportLevel = 1;
45 Exporter::import($this,grep {s/^\$/*/} @list);
56 *INPUT_RECORD_SEPARATOR
59 *OUTPUT_FIELD_SEPARATOR
61 *OUTPUT_RECORD_SEPARATOR
67 *FORMAT_LINES_PER_PAGE
71 *FORMAT_LINE_BREAK_CHARACTERS
100 *LAST_REGEXP_CODE_RESULT
101 *EXCEPTIONS_BEING_CAUGHT
104 # The ground of all being. @ARG is deprecated (5.005 makes @_ lexical)
113 *LAST_PAREN_MATCH = *+ ;
117 *INPUT_LINE_NUMBER = *. ;
119 *INPUT_RECORD_SEPARATOR = */ ;
124 *OUTPUT_AUTOFLUSH = *| ;
125 *OUTPUT_FIELD_SEPARATOR = *, ;
127 *OUTPUT_RECORD_SEPARATOR = *\ ;
130 # Interpolation "constants".
132 *LIST_SEPARATOR = *" ;
133 *SUBSCRIPT_SEPARATOR = *; ;
138 *FORMAT_PAGE_NUMBER = *% ;
139 *FORMAT_LINES_PER_PAGE = *= ;
140 *FORMAT_LINES_LEFT = *- ;
142 *FORMAT_TOP_NAME = *^ ;
143 *FORMAT_LINE_BREAK_CHARACTERS = *: ;
144 *FORMAT_FORMFEED = *^L ;
151 *EXTENDED_OS_ERROR = *^E ;
160 *EFFECTIVE_USER_ID = *> ;
162 *REAL_GROUP_ID = *( ;
164 *EFFECTIVE_GROUP_ID = *) ;
171 *PERL_VERSION_TUPLE = *^V ;
175 *SYSTEM_FD_MAX = *^F ;
176 *INPLACE_EDIT = *^I ;
178 *LAST_REGEXP_CODE_RESULT = *^R ;
179 *EXCEPTIONS_BEING_CAUGHT = *^S ;
182 *EXECUTABLE_NAME = *^X ;
189 # *MULTILINE_MATCHING = ** ;