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
99 *LAST_REGEXP_CODE_RESULT
100 *EXCEPTIONS_BEING_CAUGHT
103 # The ground of all being. @ARG is deprecated (5.005 makes @_ lexical)
112 *LAST_PAREN_MATCH = *+ ;
116 *INPUT_LINE_NUMBER = *. ;
118 *INPUT_RECORD_SEPARATOR = */ ;
123 *OUTPUT_AUTOFLUSH = *| ;
124 *OUTPUT_FIELD_SEPARATOR = *, ;
126 *OUTPUT_RECORD_SEPARATOR = *\ ;
129 # Interpolation "constants".
131 *LIST_SEPARATOR = *" ;
132 *SUBSCRIPT_SEPARATOR = *; ;
137 *FORMAT_PAGE_NUMBER = *% ;
138 *FORMAT_LINES_PER_PAGE = *= ;
139 *FORMAT_LINES_LEFT = *- ;
141 *FORMAT_TOP_NAME = *^ ;
142 *FORMAT_LINE_BREAK_CHARACTERS = *: ;
143 *FORMAT_FORMFEED = *^L ;
150 *EXTENDED_OS_ERROR = *^E ;
159 *EFFECTIVE_USER_ID = *> ;
161 *REAL_GROUP_ID = *( ;
163 *EFFECTIVE_GROUP_ID = *) ;
169 *PERL_VERSION = *^V ;
173 *SYSTEM_FD_MAX = *^F ;
174 *INPLACE_EDIT = *^I ;
176 *LAST_REGEXP_CODE_RESULT = *^R ;
177 *EXCEPTIONS_BEING_CAUGHT = *^S ;
180 *EXECUTABLE_NAME = *^X ;
187 # *MULTILINE_MATCHING = ** ;
188 # *OLD_PERL_VERSION = *] ;