検索条件
全19件
(1/2ページ)
# $* = 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行にまとめているだけなので、修正しなくても大丈夫だと思います。
