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.
34 # Grandfather $NAME import
38 local $Exporter::ExportLevel = 1;
39 Exporter::import($this,grep {s/^\$/*/} @list);
50 *INPUT_RECORD_SEPARATOR
53 *OUTPUT_FIELD_SEPARATOR
55 *OUTPUT_RECORD_SEPARATOR
61 *FORMAT_LINES_PER_PAGE
65 *FORMAT_LINE_BREAK_CHARACTERS
96 # The ground of all being.
105 *LAST_PAREN_MATCH = *+ ;
109 *INPUT_LINE_NUMBER = *. ;
111 *INPUT_RECORD_SEPARATOR = */ ;
116 *OUTPUT_AUTOFLUSH = *| ;
117 *OUTPUT_FIELD_SEPARATOR = *, ;
119 *OUTPUT_RECORD_SEPARATOR = *\ ;
122 # Interpolation "constants".
124 *LIST_SEPARATOR = *" ;
125 *SUBSCRIPT_SEPARATOR = *; ;
130 *FORMAT_PAGE_NUMBER = *% ;
131 *FORMAT_LINES_PER_PAGE = *= ;
132 *FORMAT_LINES_LEFT = *- ;
134 *FORMAT_TOP_NAME = *^ ;
135 *FORMAT_LINE_BREAK_CHARACTERS = *: ;
136 *FORMAT_FORMFEED = *^L ;
141 *SYSTEM_CHILD_STATUS = *^S ;
144 *EXTENDED_OS_ERROR = *^E ;
153 *EFFECTIVE_USER_ID = *> ;
155 *REAL_GROUP_ID = *( ;
157 *EFFECTIVE_GROUP_ID = *) ;
166 *SYSTEM_FD_MAX = *^F ;
167 *INPLACE_EDIT = *^I ;
171 *EXECUTABLE_NAME = *^X ;
178 # *MULTILINE_MATCHING = ** ;