有这样一个文本文件，内容有多行如下，数量不定。
Lif(__amscript_cd("ments_of_url{$key});
print q{Lif(__amscript_cd("};
print $key;
print q#")){__amscript_wc('#;
print $value;
print q#{display:none;}');};#;
print "\n";
}
}
sub main {
&test();
}
&main();
网站建设 IT知识 IT知识教程 Perl合并文本的一段实例代码 
最新文章
热门文章
猜你喜欢
