全部博文(47)
2013年(47)
发布时间: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-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 .........【阅读全文】