8 # Grandfather $NAME import
12 local $Exporter::ExportLevel = 1;
13 Exporter::import($this,grep {s/^\$/*/} @list);
24 *INPUT_RECORD_SEPARATOR
27 *OUTPUT_FIELD_SEPARATOR
29 *OUTPUT_RECORD_SEPARATOR
35 *FORMAT_LINES_PER_PAGE
39 *FORMAT_LINE_BREAK_CHARACTERS
67 # The ground of all being.
76 *LAST_PAREN_MATCH = *+ ;
80 *INPUT_LINE_NUMBER = *. ;
82 *INPUT_RECORD_SEPARATOR = */ ;
87 *OUTPUT_AUTOFLUSH = *| ;
88 *OUTPUT_FIELD_SEPARATOR = *, ;
90 *OUTPUT_RECORD_SEPARATOR = *\ ;
93 # Interpolation "constants".
95 *LIST_SEPARATOR = *" ;
96 *SUBSCRIPT_SEPARATOR = *; ;
101 *FORMAT_PAGE_NUMBER = *% ;
102 *FORMAT_LINES_PER_PAGE = *= ;
103 *FORMAT_LINES_LEFT = *- ;
105 *FORMAT_TOP_NAME = *^ ;
106 *FORMAT_LINE_BREAK_CHARACTERS = *: ;
107 *FORMAT_FORMFEED = *^L ;
122 *EFFECTIVE_USER_ID = *> ;
124 *REAL_GROUP_ID = *( ;
126 *EFFECTIVE_GROUP_ID = *) ;
135 *SYSTEM_FD_MAX = *^F ;
136 *INPLACE_EDIT = *^I ;
140 *EXECUTABLE_NAME = *^X ;
146 # *MULTILINE_MATCHING = ** ;