Lines Matching refs:filename
136 $filename = "BIG5.TXT";
137 open IN, ("input/" . $filename) or die "Cannot read " . $filename;
152 print "WARNING! In ", $filename, ", both ",
166 $filename = "CP950.TXT";
167 open IN, ("input/" . $filename) or die "Cannot read " . $filename;
180 print "WARNING! In ", $filename, ", both ",
301 $filename = "big5-iso.txt";
302 open IN, ("input/" . $filename) or die "Cannot read " . $filename;
419 $filename = lc($id) . ".tab";
420 open OUT, ("> " . $filename) or die "Cannot write " . $filename;
423 $filename = lc($id). ".pl";
424 open IN, $filename or die "Cannot read ". $filename;