Lines Matching refs:file
58 my $file; #Variable for a file
65 foreach $file (@all_files) {
66 if (-d "$path$file/") {
67 &RecurseDirs("$path$file/");
69 &check($path, $file);
79 my $file = shift;
80 print "$path$file\n" if ((-e "$path$file") && $is_debug);
81 return if ( $file !~ /.+\.(xcu|xml|xcs)/ ); #check xml and xcu files only
82 if ( -z "$path$file" ) {
83 print "Error: $path$file 0 Bytes!\n";
87 open( FH, "<$path$file" );
91 print "Error: NULL characters detected in $path$file\n";
110 foreach $file (@all_files) {
111 if ( $file =~ /registry_.+\.zip$/ ) {
112 $commandargs="$path$file";