use English; ... if ($ERRNO =~ /denied/) { ... }
This module provides aliases for the built-in "punctuation" variables. Variables with side effects that get triggered merely by accessing them (like $0) will still have the same effects under the aliases.
For those variables that have an awk(1) version, both long
and short English alternatives are provided. For example,
the $/
variable can be referred to either as $RS
or as
$INPUT_RECORD_SEPARATOR
if you are using the English module.
Here is the list of variables along with their English alternatives:
Perl | English | Perl | English |
---|---|---|---|
@_ | @ARG | $? | $CHILD_ERROR |
$_ | $ARG | $! | $OS_ERROR |
$& | $MATCH | $! | $ERRNO |
$` | $PREMATCH | $@ | $EVAL_ERROR |
$' | $POSTMATCH | $$ | $PROCESS_ID |
$+ | $LAST_PAREN_MATCH | $$ | $PID |
$. | $INPUT_LINE_NUMBER | $< | $REAL_USER_ID |
$. | $NR | $< | $UID |
$/ | $INPUT_RECORD_SEPARATOR | $> | $EFFECTIVE_USER_ID |
$/ | $RS | $> | $EUID |
$| | $OUTPUT_AUTOFLUSH | $( | $REAL_GROUP_ID |
$, | $OUTPUT_FIELD_SEPARATOR | $( | $GID |
$, | $OFS | $) | $EFFECTIVE_GROUP_ID |
$\ | $OUTPUT_RECORD_SEPARATOR | $) | $EGID |
$\ | $ORS | $0 | $PROGRAM_NAME |
$" | $LIST_SEPARATOR | $] | $PERL_VERSION |
$; | $SUBSCRIPT_SEPARATOR | $^A | $ACCUMULATOR |
$; | $SUBSEP | $^D | $DEBUGGING |
$% | $FORMAT_PAGE_NUMBER | $^F | $SYSTEM_FD_MAX |
$= | $FORMAT_LINES_PER_PAGE | $^I | $INPLACE_EDIT |
$- | $FORMAT_LINES_LEFT | $^P | $PERLDB |
$~ | $FORMAT_NAME | $^T | $BASETIME |
$^ | $FORMAT_TOP_NAME | $^W | $WARNING |
$: | $FORMAT_LINE_BREAK_CHARACTERS | $^X | $EXECUTABLE_NAME |
$^L | $FORMAT_LINEFEED | $^O | $OSNAME |