发布时间：2013-04-26 11:33:16

#! c:/perl/bin -wuse strict "vars";local $newspaper = "The Times";print "$newspaper";#会报错.Global symbol "$newspaper" requires explicit package name at testing.pl line 3.Global symbol "$newspaper" requires explicit package name at testing.pl line 4.testing.pl had compilation errors.如果.........【阅读全文】

发布时间：2013-04-26 11:28:57

ls -l |grep "^-"|wc -l或find ./company -type f | wc -l查看某文件夹下文件的个数，包括子文件夹里的。ls -lR|grep "^-"|wc -l查看某文件夹下文件夹的个数，包括子文件夹里的。ls -lR|grep "^d"|wc -l说明：ls -l长列表输出该目录下文件信息(注意这里的文件，不同于一般的文件，可.........【阅读全文】

发布时间：2013-04-26 09:18:33

非礼勿视，非礼勿听，非礼勿言，非礼勿动......【阅读全文】

发布时间：2013-04-25 18:10:41

sub doWork{   my $files=shift;   for my $file (@$files)   {      #deal with file.   }} sub getFiles{   #read files from dir and    #you can dispatch the files into a number of arrays   #these .........【阅读全文】

发布时间：2013-04-25 18:07:36

创建线程线程作为 Perl 中的一种实体，其一生可以粗略的分为创建，运行与退出这三个阶段。创建使得线程从无到有，运行则是线程完成其主要工作的阶段，退出自然就是指线程的消亡。线程的运行和普通函数的执行非常类似，有其入口参数，一段特定的代码流程以及执行完毕后返回的一个或一组结果，唯一与普通函数调用的不同.........【阅读全文】