Lines Matching refs:INFILE
24 my $infile = shift;
25 # check infile exists
26 die "Can't find file \"$infile\""
27 unless -f $infile;
28 # check we can read infile
29 if (! -r $infile) {
30 die "Can't read input $infile\n";
32 # check we can open infile
33 open( INFILE,"<$infile" ) or
34 die "Can't input $infile $!";
38 #print "Infile: $infile, Outfile: $outfile\n";
45 while ( <INFILE> ) {
66 close INFILE;
