Lines Matching refs:outfile
59 $outfile = "OUTFILE";
61 else { $outfile = "STDOUT"; }
63 printf($outfile "Perl $] Regular Expressions\n\n");
72 printf $outfile "$_" if $infile ne "STDIN";
81 printf $outfile "$_" if $infile ne "STDIN";
125 printf $outfile "Error: $@";
150 printf $outfile "$_\n" if $infile ne "STDIN";
190 printf $outfile "Error: $@\n";
195 printf $outfile "No match";
197 { printf $outfile (", mark = %s", &pchars($REGERROR)); }
198 printf $outfile "\n";
204 printf $outfile (" 0: %s\n", &pchars($subs[0]));
205 printf $outfile (" 0+ %s\n", &pchars($subs[17])) if $showrest;
212 { printf $outfile ("%2d: <unset>\n", $last_printed); }
213 printf $outfile ("%2d: %s\n", $i, &pchars($subs[$i]));
228 printf $outfile ("MK: %s\n", &pchars($xx));
234 # printf $outfile "\n";