jcode.pl の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• jcode.pl へ行く。
• jcode.pl の差分を削除

CONTENTS
#contents
----
Lastmodified　&lastmod;
----
*FreeBSD 11.1-R perl v5.24.3 でエラー [#x138649c]

&ref(jcode.pl_2017);

方々サイトを参考に改変したのが上記

----

*jcode.pl [#n408a3f6]

perlのバージョンアップで、jcode.pl がエラーするようになった。

 defined(%hash) is deprecated at ../perllib/jcode.pl line 684.
        (Maybe you should just omit the defined()?)
 defined(%hash) is deprecated at ../perllib/jcode.pl line 693.
        (Maybe you should just omit the defined()?)

同様のエラーは、他のサイトでも起こっているらしく、解決策も紹介されています。

http://icepotato.cocolog-nifty.com/blog/2014/04/jcodepldefinedh.html

有り難い事です。

【解決法】

 sub z2h_euc {
    local(*s, $n) = @_;
    &init_z2h_euc unless defined %z2h_euc_inited;
    $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_inited;
    $s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo;
    $n;
 }

のコードを、

 sub z2h_euc {
    local(*s, $n) = @_;
    &init_z2h_euc if !%z2h_euc;
    $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 if !%z2h_sjis;
    $s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo;
    $n;
 }


と修正することで、回避出来るとのことです。

&ref(jcode.pl);

----
Total access &counter(total);：本日 &counter(today);：昨日 &counter(yesterday);
#counter([total|today|yesterday]);