Changeset 193 in lab

Timestamp:

Jan 25, 2013 6:26:26 PM (11 years ago)

Author:

mitty

Message:

• fix: previous procedure skips files such as '...'

Location:

trunk/misc

Files:

• findcombinable.pl (modified) (1 diff)
• findnonsjis.pl (modified) (1 diff)

trunk/misc/findcombinable.pl

@@ -33 +33 @@
     print STDERR "checking '$target'\n";
     opendir(my $dir, $target) || return $target;
-    my @entries = sort readdir($dir);
+    my @entries = sort grep { !m/^(\.|\.\.)$/g } readdir($dir);
     closedir($dir);
     
     my @dirs;
     while (my $entry = shift @entries) {
-        next if ($entry =~ /^\.+$/);
         $entry = $utf8->decode($entry);
         if (match($entry)) {

trunk/misc/findnonsjis.pl

@@ -30 +30 @@
     print STDERR "checking '$target'\n";
     opendir(my $dir, $target) || return $target;
-    my @entries = sort readdir($dir);
+    my @entries = sort grep { !m/^(\.|\.\.)$/g } readdir($dir);
     closedir($dir);
     
     my @dirs;
     while (my $entry = shift @entries) {
-        next if ($entry =~ /^\.+$/);
         if (match($entry)) {
             print "'$target/$entry' contains non Shift_JIS character\n";