Lines Matching refs:infile
27 my $infile = "";
28 my @infile = ();
76 my $linecount = $#infile + 1;
88 for ( $i = 0; $i <= $#infile; $i++) {
89 my $line = $infile[$i];
132 $infile = $ARGV[ $i + 1];
142 usage() if "$infile" eq "";
144 if ( -f "$infile" ) {
145 open INFILE, "$infile" or die "$0 - ERROR: $infile exists but isn't readable.\n";
146 @infile = <INFILE>;
148 print STDERR "Reading template file: $infile\n" if $verbose;
149 my $num = $#infile + 1;
152 die "Template file \"$infile\" not found!\n";
160 return if (stat($infile))[9] > (stat("$outfile"))[9] ;