Lines Matching refs:OUTFILE
102 open(OUTFILE, ">$ARGV[1]") || die "Failed to open $ARGV[1]\n";
103 $outfile = "OUTFILE";
105 else { $outfile = "STDOUT"; }
107 printf($outfile "Perl $] Regular Expressions\n\n");
116 printf $outfile "$_" if ! $interact;
125 printf $outfile "$_" if ! $interact;
174 printf $outfile "Error: $@";
207 printf $outfile "%s", "$_\n" if ! $interact;
248 printf $outfile "Error: $@\n";
253 printf $outfile "No match";
255 { printf $outfile (", mark = %s", &pchars($REGERROR)); }
256 printf $outfile "\n";
262 printf $outfile (" 0: %s\n", &pchars($subs[0]));
263 printf $outfile (" 0+ %s\n", &pchars($subs[17])) if $showrest;
270 { printf $outfile ("%2d: <unset>\n", $last_printed); }
271 printf $outfile ("%2d: %s\n", $i, &pchars($subs[$i]));
286 printf $outfile ("MK: %s\n", &pchars($xx));
292 # printf $outfile "\n";
