2010-01-22
perl_File::Find
自定义路径查找以.xxx为结尾的文件..xp跟debian测试通过 #!perl use warnings; use File::Find; find(\&a,’D:/test’); sub a{ m...
自定义路径查找以.xxx为结尾的文件..xp跟debian测试通过 #!perl use warnings; use File::Find; find(\&a,’D:/test’); sub a{ m...
perl简易抓取页面程序 #!/usr/bin/perl use strict; use LWP::Simple; my $url = ‘http://www.baidu.com’; my $go =...
perl的标准输入stdin #!/usr/bin/perl print “wait stdin:”; $sr = ; if ( $sr eq “\n” ){ print “just a blank ...
近期评论