Changeset 19673

Timestamp:

09/21/08 17:20:24 (5 years ago)

Author:

tomi-ru

Message:

ゼロで始まる数字のゼロが消えないように.

Location:

lang/perl/Acme-Samurai/trunk

Files:

• Changes (modified) (1 diff)
• lib/Acme/Samurai.pm (modified) (3 diffs)
• t/01_gozaru.t (modified) (1 diff)

lang/perl/Acme-Samurai/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension Acme::Samurai
+
+        - fixed about numbers started by zero
 
 0.02  Thu Sep  4 07:57:31 JST 2008

lang/perl/Acme-Samurai/trunk/lib/Acme/Samurai.pm

@@ -33 +33 @@
         return $node->features->{extra};
     }
-    elsif ($node->features->{category1} eq '数' and
-        $node->surface =~ /^[0-9]+$/) {
-        if ($node->prev_node->surface =~ /[.．]/) {
+    elsif ($node->features->{category1} eq '数' and $node->surface =~ /^[0-9]+$/) { # arabic number
+        if ($node->surface =~ /^0/ or
+            $node->prev_node->surface =~ /[.．]/) {
             my $r = "";
             $r .= Lingua::JA::Numbers::num2ja($_) for split //, $node->surface;
@@ -43 +43 @@
         }
     }
-    elsif ($node->features->{category1} eq '数') {
+    elsif ($node->features->{category1} eq '数') { # maybe kanji number
         my $text = $node->surface;
         $text =~ tr{〇一二三四五六七八九十百万}
@@ -166 +166 @@
 =head1 SEE ALSO
 
-Sample form: L<http://samurai.koneta.org/>
+Test form: L<http://samurai.koneta.org/>
 
 L<Text::MeCab>

lang/perl/Acme-Samurai/trunk/t/01_gozaru.t

@@ -58 +58 @@
 --- input:    36.5度 ４２．１９５キロ 千グラム
 --- expected: 三十六.五度 四十二．一九五里 千匁
+=== 数ゼロ始まり
+--- input:    0120
+--- expected: 零一二零
+
 === 大字
 --- input:    三十四回 一万円