Changeset 19845

Timestamp:

09/24/08 23:53:50 (5 years ago)

Author:

drry

Message:

• fixed a regex.
  

Files:

• lang/perl/misc/shigai/get_shigai.pl (modified) (1 diff)

lang/perl/misc/shigai/get_shigai.pl

@@ -17 +17 @@
 my %shigai;
 foreach ( @{ $res->{shigai} } ) {
-    $_ =~ s/[^\d]//g;
+    $_ =~ s/\D+//g;
     next unless $_;
     $shigai{ $_ } = length($_);