CONTENTS #contents ---- Lastmodified &lastmod; ---- *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]);