検索条件
全2件
(1/1ページ)
# $* = 0; # match one linejcode.pl 677行目以降:(以下のように変更)
sub z2h_euc { local(*s, $n) = @_; # &init_z2h_euc unless defined %z2h_euc; &init_z2h_euc if (! %z2h_euc) ; # $s =~ s/($re_euc_c|$re_euc_kana)/ # $z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1 # /geo; $s =~ s/($re_euc_c|$re_euc_kana)/$z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1/geo; $n; } sub z2h_sjis { local(*s, $n) = @_; # &init_z2h_sjis unless defined %z2h_sjis; &init_z2h_sjis if (! %z2h_sjis) ; $s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo; $n; }680行目付近の3行コメントアウトの部分は、3行にまたがってる判りにくい部分を単に1行にまとめているだけなので、修正しなくても大丈夫だと思います。