blob: 79cceee53c6521b738c1f679e28a769ea26f7edb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
package English;
require Exporter;
@ISA = (Exporter);
@EXPORT = qw(
*ARG
$MATCH
$PREMATCH
$POSTMATCH
$LAST_PAREN_MATCH
$INPUT_LINE_NUMBER
$NR
$INPUT_RECORD_SEPARATOR
$RS
$OUTPUT_AUTOFLUSH
$OUTPUT_FIELD_SEPARATOR
$OFS
$OUTPUT_RECORD_SEPARATOR
$ORS
$LIST_SEPARATOR
$SUBSCRIPT_SEPARATOR
$SUBSEP
$FORMAT_PAGE_NUMBER
$FORMAT_LINES_PER_PAGE
$FORMAT_LINES_LEFT
$FORMAT_NAME
$FORMAT_TOP_NAME
$FORMAT_LINE_BREAK_CHARACTERS
$FORMAT_FORMFEED
$CHILD_ERROR
$OS_ERROR
$EVAL_ERROR
$PROCESS_ID
$PID
$REAL_USER_ID
$UID
$EFFECTIVE_USER_ID
$EUID
$REAL_GROUP_ID
$GID
$EFFECTIVE_GROUP_ID
$EGID
$PROGRAM_NAME
$PERL_VERSION
$DEBUGGING
$SYSTEM_FD_MAX
$INPLACE_EDIT
$PERLDB
$BASETIME
$WARNING
$EXECUTABLE_NAME
$ARRAY_BASE
$OFMT
$MULTILINE_MATCHING
);
# The ground of all being.
*ARG = *_ ;
# Matching.
*MATCH = \$& ;
*PREMATCH = \$` ;
*POSTMATCH = \$' ;
*LAST_PAREN_MATCH = \$+ ;
# Input.
*INPUT_LINE_NUMBER = \$. ;
*NR = \$. ;
*INPUT_RECORD_SEPARATOR = \$/ ;
*RS = \$/ ;
# Output.
*OUTPUT_AUTOFLUSH = \$| ;
*OUTPUT_FIELD_SEPARATOR = \$, ;
*OFS = \$, ;
*OUTPUT_RECORD_SEPARATOR = \$\ ;
*ORS = \$\ ;
# Interpolation "constants".
*LIST_SEPARATOR = \$" ;
*SUBSCRIPT_SEPARATOR = \$; ;
*SUBSEP = \$; ;
# Formats
*FORMAT_PAGE_NUMBER = \$% ;
*FORMAT_LINES_PER_PAGE = \$= ;
*FORMAT_LINES_LEFT = \$- ;
*FORMAT_NAME = \$~ ;
*FORMAT_TOP_NAME = \$^ ;
*FORMAT_LINE_BREAK_CHARACTERS = \$: ;
*FORMAT_FORMFEED = \$^L ;
# Error status.
*CHILD_ERROR = \$? ;
*OS_ERROR = \$! ;
*EVAL_ERROR = \$@ ;
# Process info.
*PROCESS_ID = \$$ ;
*PID = \$$ ;
*REAL_USER_ID = \$< ;
*UID = \$< ;
*EFFECTIVE_USER_ID = \$> ;
*EUID = \$> ;
*REAL_GROUP_ID = \$( ;
*GID = \$( ;
*EFFECTIVE_GROUP_ID = \$) ;
*EGID = \$) ;
*PROGRAM_NAME = \$0 ;
# Internals.
*PERL_VERSION = \$] ;
*ACCUMULATOR = \$^A ;
*DEBUGGING = \$^D ;
*SYSTEM_FD_MAX = \$^F ;
*INPLACE_EDIT = \$^I ;
*PERLDB = \$^P ;
*BASETIME = \$^T ;
*WARNING = \$^W ;
*EXECUTABLE_NAME = \$^X ;
# Deprecated.
*ARRAY_BASE = \$[ ;
*OFMT = \$# ;
*MULTILINE_MATCHING = \$* ;
1;
|
