在perl导入一个INFILE后 用逗号split @summands = split （/，/， <INFILE>) 这个@summands 数组里存的到底是什么？ 假设我的INFILE文件为： 1，2，3 4，5，6 7，8，9

File::Copy 使用这个模块， 我写个单独的程序 copy("filename","dir") do tie 。。。 执行这个程序是成功的。 但是我放在我的大程序中 用File::Find 查找到文件名并给变量$file，dir也用变量$dir表示的 可是执行copy($file,$dir) $dir中没有copy成功 PS:我要复制的文件带有子文件夹，如何能批量复制？是否可以不用上述方法？

比如 我要同时压缩几十个文件夹， 我把全部的路径写到一个文本里 。然后 执行一下脚本 30多个文件夹 就都打成一个包了 谢谢大家

[root@test1 youcz]# cat eof.pl #!/usr/bin/perl #auth youcz 201105026 May twentith-sixth Thursday open(DB,"emp.names") || die "Can't open emp.names: $!"; while(<DB>){ ---------------》》 请问是不是一次循环只读取一行，如果是的话 print if (/Norma/ .. eof); ------------》》 怎么实现的打印到文件尾？ }

cat acl-lib.pl my $M = 'aa'; sub Main { my $Msg = 'This is My Test'; print $Msg; } 1; 复制代码 cat require.pl #!/usr/bin/perl -w use strict; require './acl-lib.pl'; &Main(); print $M; 复制代码 perl require.pl Global symbol "$M" requires explicit package name at require.pl line 6. Execution of require.pl aborted due to compilation errors. 问题:如...

比如。或者以 ABC开头，或者以 空格+ABC开头 我不想写成 ^ABC|\s+ABC 能否 ^\s+ABC ？这样显然不对

my @temp = ($temp_str =~ /.*vhosts\/(.*)\/htdocs.*/); 这个语句的效率很低，加上他和不加他执行速度差了好多倍，有没有什么优化的办法

open SQLTEST, ">c:\DINO.txt"; while (<>) { chomp; ##print "it was $_ that i saw!\n"; $_=~s/ union\s*all /\n##################\nunion all\n####################3\n /x; my $a=$_; print SQLTEST "$a\n"; } 复制代码 这段代码是在sql里碰到union all 就前后空行的代码 不知道这个union all要是一个变量可不可以写在 正则里呢 请指教 open SQLTEST, ">c:\DINO.txt"; ...

RTRT,有哪位研究过,感觉用在hash键的查找速度很快,现在想知道它的实现方式,各位大显神威的时候到了

本帖最后由 首天 于 2011-05-25 11:56 编辑 我想将三者结合起来使用，但是没有成功，朋友们帮我看看是哪里出错了，CGI+TT、CGI+Ajax均可以运行，CGI+Ajax+TT没有成功。 代码如下： 1，CGI程序，ia_ajax.pl #!/usr/bin/perl use warnings; use strict; use CGI; use CGI::Ajax; use Template; binmode STDOUT, ':utf8'; my $tt_config = { INCLUDE_PATH => '/home/www/html/i...