perl 5.0 alpha 5
[perl.git] / lib / verbose.pl
1 # The ground of all being.
2
3         *MAGIC                                  = *_    ;
4
5 # Matching.
6
7         *MATCH                                  = *&    ;
8         *PREMATCH                               = *`    ;
9         *POSTMATCH                              = *'    ;
10         *LAST_PAREN_MATCH                       = *+    ;
11
12 # Input.
13
14         *INPUT_LINE_NUMBER                      = *.    ;
15             *NR                                 = *.    ;
16         *INPUT_RECORD_SEPARATOR                 = */    ;
17             *RS                                 = */    ;
18
19 # Output.
20
21         *OUTPUT_AUTOFLUSH                       = *|    ;
22         *OUTPUT_FIELD_SEPARATOR                 = *,    ;
23             *OFS                                = *,    ;
24         *OUTPUT_RECORD_SEPARATOR                = *\    ;
25             *ORS                                = *\    ;
26
27 # Interpolation "constants".
28
29         *LIST_SEPARATOR                         = *"    ;
30         *SUBSCRIPT_SEPARATOR                    = *;    ;
31             *SUBSEP                             = *;    ;
32
33 # Formats
34
35         *FORMAT_PAGE_NUMBER                     = *%    ;
36         *FORMAT_LINES_PER_PAGE                  = *=    ;
37         *FORMAT_LINES_LEFT                      = *-    ;
38         *FORMAT_NAME                            = *~    ;
39         *FORMAT_TOP_NAME                        = *^    ;
40         *FORMAT_LINE_BREAK_CHARACTERS           = *:    ;
41         *FORMAT_FORMFEED                        = *^L   ;
42
43 # Error status.
44
45         *CHILD_ERROR                            = *?    ;
46         *OS_ERROR                               = *!    ;
47         *EVAL_ERROR                             = *@    ;
48
49 # Process info.
50
51         *PROCESS_ID                             = *$    ;
52             *PID                                = *$    ;
53         *REAL_USER_ID                           = *<    ;
54             *UID                                = *<    ;
55         *EFFECTIVE_USER_ID                      = *>    ;
56             *EUID                               = *>    ;
57         *REAL_GROUP_ID                          = *(    ;
58             *GID                                = *(    ;
59         *EFFECTIVE_GROUP_ID                     = *)    ;
60             *EGID                               = *)    ;
61         *PROGRAM_NAME                           = *0    ;
62
63 # Internals.
64
65         *PERL_VERSION                           = *]    ;
66         *DEBUGGING                              = *^D   ;
67         *SYSTEM_FD_MAX                          = *^F   ;
68         *INPLACE_EDIT                           = *^I   ;
69         *PERLDB                                 = *^P   ;
70         *BASETIME                               = *^T   ;
71         *WARNING                                = *^W   ;
72         *EXECUTABLE_NAME                        = *^X   ;
73
74 # Deprecated.
75
76         *ARRAY_BASE                             = *[    ;
77         *OFMT                                   = *#    ;
78         *MULTILINE_MATCHING                     = **    ;