| 48 |
opendir my $data_dir, $data_dir_name or die "$0: $data_dir_name: $!"; |
opendir my $data_dir, $data_dir_name or die "$0: $data_dir_name: $!"; |
| 49 |
for (sort {$a cmp $b} readdir $data_dir) { |
for (sort {$a cmp $b} readdir $data_dir) { |
| 50 |
next if /^\./; # hidden files |
next if /^\./; # hidden files |
| 51 |
|
next if /^_/; # editable but not-used files |
| 52 |
my $data_file_name = qq[$data_dir_name$_]; |
my $data_file_name = qq[$data_dir_name$_]; |
| 53 |
next unless $data_file_name =~ /\Q$data_suffix\E$/; |
next unless $data_file_name =~ /\Q$data_suffix\E$/; |
| 54 |
$code->($data_file_name); |
$code->($data_file_name, $_); |
| 55 |
} |
} |
| 56 |
} # for_each_data_file |
} # for_each_data_file |
| 57 |
|
|
Parent Directory
| 
Revision Log
| 
Patch