Lines Matching refs:outfile

57   $outfile = "OUTFILE";
59 else { $outfile = "STDOUT"; }
61 printf($outfile "Perl $] Regular Expressions\n\n");
70   printf $outfile "$_" if $infile ne "STDIN";
79     printf $outfile "$_" if $infile ne "STDIN";
123     printf $outfile "Error: $@";
156     printf $outfile "$_\n" if $infile ne "STDIN";
196       printf $outfile "Error: $@\n";
201       printf $outfile "No match";
203         { printf $outfile (", mark = %s", &pchars($REGERROR)); }
204       printf $outfile "\n";
210         printf $outfile (" 0: %s\n", &pchars($subs[0]));
211         printf $outfile (" 0+ %s\n", &pchars($subs[17])) if $showrest;
218               { printf $outfile ("%2d: <unset>\n", $last_printed); }
219             printf $outfile ("%2d: %s\n", $i, &pchars($subs[$i]));
234         printf $outfile ("MK: %s\n", &pchars($xx));