我将我的网站转移到另一台服务器上,这个错误发生了
PERL:在连接(.)中使用未初始化的值$ 2或在/Toolbox.pm第40行使用字符串.
功能 :
36 sub WT_filter{
37
38 my $filter = sub {
39 my $text_ref = shift;
40 $$text_ref =~ s/\[\%([^ ]+?)( .*)?\%\]/<TMPL_VAR NAME=\"$1\"$2>/g;
41 };
42
43 return $filter;
44
45 } #sub WT_filter
Run Code Online (Sandbox Code Playgroud)
谢谢 !
perl ×1