#Perl
取文件的最后修改时间
#!/usr/bin/perl use File::stat; use POSIX qw(strftime); if (@ARGV != 1) { print "Usage: $0…
#Perl
利用perl基础库抓取百度博客，生成wp导入文件
# Author : thicket # Date : 2013/01/31 # WebSite : hi.baidu.com # 在当前文件夹生成以日期为文件名的xml文件，可以…
#Perl
三目运算
$wf_workflow=1; $wf_workflow?($test=1233):($test=321); #if($wf_workflow){$test=1233;}else{…
#Perl
设置环境变量
use Win32; use Win32::API; use Win32::OLE qw( in ); my $machine = "."; my $WMIServices = W…
#Perl
Perl批量赋予可执行权限
#!/usr/bin/perl #use Cwd; sub RightAll(){ local($dir) = @_; opendir(DIR,"$dir"|| die "can'…
#Perl
Perl 使用 DBI 连接到数据库
#!\usr\bin\perl use warnings; use strict; use DBI; my $dbh=DBI->connect('dbi:mysql:test…
#Perl
Perl 使用 OLE 自动化来控制 Excel
#!/usr/bin/perl -w use Win32::OLE; $class = 'Excel.Application'; $app = Win32::OLE->new…
#Perl
Perl SAX 方式解析 XML
use XML::Parser; $currentLine = 0; $parser = new XML::Parser(Handlers => {Start => \…
#Perl
Perl 访问 Windows 的剪切板
#!/usr/bin/perl use Win32::Clipboard; $clip = Win32::Clipboard->new(); $clip->Set( "…
#Perl
Perl 语言实现一个窗体
Myapp.pm #!/usr/bin/perl -w use strict; # load wxPerl main module use Wx; # every applicat…
#Perl
Recursive Find File In Directory
#!/usr/bin/perl -w use utf8; use strict; use warnings; sub lsrp { my ($dir, $sub, $ext, $p…
#Perl
perl 多线程，实时监控线程数，支持max thread
#!/usr/bin/perl -w #Description:rerun eod job group by system #Auther:Suzm #Date :2015-06-…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
