Lines Matching refs:infile
49 open(INFILE, "<$ARGV[0]") || die "Failed to open $ARGV[0]\n";
50 $infile = "INFILE";
52 else { $infile = "STDIN"; }
68 printf " re> " if $infile eq "STDIN";
69 last if ! ($_ = <$infile>);
70 printf $outfile "$_" if $infile ne "STDIN";
77 printf " > " if $infile eq "STDIN";
78 last if ! ($_ = <$infile>);
79 printf $outfile "$_" if $infile ne "STDIN";
133 printf "data> " if $infile eq "STDIN";
134 last NEXT_RE if ! ($_ = <$infile>);
136 printf $outfile "$_\n" if $infile ne "STDIN";
