| Subject: | Unicode::Japaneseに不具合？ |
| Date: | Sun, 26 Apr 2009 02:49:03 +0900 |
| To: | bug-unicode-japanese [...] rt.cpan.org |
| From: | みね <mine_programming [...] me.com> |
はじめまして。Perl歴１年のみねと申します。
環境は、Mac OSX(10.5.6)、Perl 5.10.0 と 5.8.8
です。
Unicode::Japaneseを使用させていただいて気がついたのですが、
#!/usr/bin/perl
use warnings;
use strict;
use Unicode::Japanese;
### start ###
while (<>) {
print "Before: \$. => $.\n";
my $line_h2z = Unicode::Japanese->new($_)->h2z->get;
print " After: \$. => $.\n";
}
__END__
というプログラムを適当なテキストに対して実行すると１行目だけ
がおかしくて、
Before: $. => 1
After: $. => 1654
となります。バグと思われるためご報告させていただきました。