返回当前文件夹中文件的总大小ls-lAF|perl-e'while(<>){nextif/^dt/;$sum+=(split)[4]}print"$sum\n"'复制代码求问：为什么不是：ls-lAF|perl-e'while(<>){nextif/^dt/

我现在看到一些代码。代码的功能是递归复制散列中的内容。如果遇到是散列中的值是散列的引用，则不是简单复制该引用。而是新生成一个引用，然后把引用对应的值递归复制到新的引用中去。最终声生成的散列，内容和旧的散列是相同但是独立的，也就是说值为引用的时候，引用的地址是不一样的。不知道我有没有表达清楚。我想问得是有没有现成的包提供这样的操作？

#!/usr/bin/perl-wusestrict;useGD;      #createanewimagemy$im=new

RT

我用的是strwaberryperl，为什么在cmd下运行perldocCGI出现下面错误Can'tspawn"cmd.exe":NosuchfileordirecroryatC:/strawberry/perl/lib/Pod/Perldoc.pmline1681

如下一段代码#!/usr/bin/perlpackageTest;usestrict;usewarnings;subnew{    my$class=shift;    my$self={     &nb

Forexample:#!/bin/shaa=5.4bb=2.3cc=`perl-e'print  a/b'`??

subtest1{print"@_";print"test1";}subtest2{print"@_";print"test2";}$para1="test";$pate2=100;$func="test1";$func="test2";如何用统一的方式实现下面的函数调用　　test1$para1   &nbs

下载(8.91KB)2011-02-0308:42下载(8.28KB)2011-02-0308:42祝Perl版诸位兔年快乐、恭喜发财！借用一句格言：骆驼最怕转身，兔子最怕落后。新的一年，祝大家像骆驼一样稳重、像兔子一样灵巧、百尺竿头、更进一步、身体健康、事业辉煌！

本帖最后由yakczh于2011-02-0112:52编辑我写了一个package里面的函数用到md5比如useDigest::MD5qw(md5md5_hexmd5_base64);packageUtils;sub &nbs