Lines Matching refs:file
43 foreach $file (@filelist) {
44 print "Updating file $file\n";
45 updatefile($file, $substr);
53 my($file, $name);
63 # Now see if we have a directory or just a file.
65 foreach $file (sort {uc($a) cmp uc($b)} @namelist) {
66 if (-d $path.$file) {
67 $name = $file;
91 open (RFILE, $filename) || die "Can't open file $filename: $!";
99 #update the file
100 open (RFILE, ">$filename") || die "Can't open file $filename: $!";