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...
(Maybe you should just omit the defined()?)
defined(%hash) is deprecated at ../perllib/jcode.pl line...
(Maybe you should just omit the defined()?)
同様のエラーは、他のサイトでも起こっているらしく、解決策...
http://icepotato.cocolog-nifty.com/blog/2014/04/jcodeplde...
有り難い事です。
【解決法】
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...
$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++...
$n;
}
sub z2h_sjis {
local(*s, $n) = @_;
&init_z2h_sjis if !%z2h_sjis;
$s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis...
$n;
}
と修正することで、回避出来るとのことです。
&ref(jcode.pl);
----
Total access &counter(total);：本日 &counter(today);：昨...
#counter([total|today|yesterday]);
終了行:
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...
(Maybe you should just omit the defined()?)
defined(%hash) is deprecated at ../perllib/jcode.pl line...
(Maybe you should just omit the defined()?)
同様のエラーは、他のサイトでも起こっているらしく、解決策...
http://icepotato.cocolog-nifty.com/blog/2014/04/jcodeplde...
有り難い事です。
【解決法】
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...
$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++...
$n;
}
sub z2h_sjis {
local(*s, $n) = @_;
&init_z2h_sjis if !%z2h_sjis;
$s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis...
$n;
}
と修正することで、回避出来るとのことです。
&ref(jcode.pl);
----
Total access &counter(total);：本日 &counter(today);：昨...
#counter([total|today|yesterday]);
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
