Lines Matching refs:file_name
126 my $file_name = '';
127 foreach $file_name (keys %files_in_arch) {
128 if (-d $file_name) {
129 &get_dir_content($file_name, \%files_in_arch) if ($r || $R);
130 undef $files_in_arch{$file_name};
136 foreach my $file_name (keys %exc_files_hash) {
137 if (defined $files_in_arch{$file_name}) {
138 delete $files_in_arch{$file_name};
143 foreach my $file_name (keys %files_in_arch) {
144 if (!(defined $inc_files_hash{$file_name})) {
145 delete $files_in_arch{$file_name};
192 foreach my $file_name(@dir_content) {
193 $file_name =~ /^\.$/ and next;
194 $file_name =~ /^\.\.$/ and next;
195 $files_in_arch{$file_name}++;
206 my $file_name = '';
207 foreach $file_name (glob $pattern) {
209 $files_in_arch{$file_name}++;