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
93 # The ground of all being.
102 *LAST_PAREN_MATCH = *+ ;
106 *INPUT_LINE_NUMBER = *. ;
108 *INPUT_RECORD_SEPARATOR = */ ;
113 *OUTPUT_AUTOFLUSH = *| ;
114 *OUTPUT_FIELD_SEPARATOR = *, ;
116 *OUTPUT_RECORD_SEPARATOR = *\ ;
119 # Interpolation "constants".
121 *LIST_SEPARATOR = *" ;
122 *SUBSCRIPT_SEPARATOR = *; ;
127 *FORMAT_PAGE_NUMBER = *% ;
128 *FORMAT_LINES_PER_PAGE = *= ;
129 *FORMAT_LINES_LEFT = *- ;
131 *FORMAT_TOP_NAME = *^ ;
132 *FORMAT_LINE_BREAK_CHARACTERS = *: ;
133 *FORMAT_FORMFEED = *^L ;
148 *EFFECTIVE_USER_ID = *> ;
150 *REAL_GROUP_ID = *( ;
152 *EFFECTIVE_GROUP_ID = *) ;
161 *SYSTEM_FD_MAX = *^F ;
162 *INPLACE_EDIT = *^I ;
166 *EXECUTABLE_NAME = *^X ;
172 # *MULTILINE_MATCHING = ** ;