Lines Matching refs:INPUTFILE
399 open(INPUTFILE, "< $input_file") || die "File $input_file not opened\n";404 while(<INPUTFILE>) {518 while (<INPUTFILE>) {695 close(INPUTFILE);1065 if (open(INPUTFILE, "< $try_name")) {1141 my $tmp = <INPUTFILE>;1147 while (($. < $high) && ($src_line = <INPUTFILE>)) {1199 close(INPUTFILE);