首页 软件开发 代码片段 perl ( Page 15 )

perl 204

#Perl
取文件的最后修改时间

#!/usr/bin/perl use File::stat; use POSIX qw(strftime); if (@ARGV != 1) { print "Usage: $0…

2015-12-14 705

#Perl
利用perl基础库抓取百度博客,生成wp导入文件

# Author : thicket # Date : 2013/01/31 # WebSite : hi.baidu.com # 在当前文件夹生成以日期为文件名的xml文件,可以…

2015-12-14 1,014

#Perl
三目运算

$wf_workflow=1; $wf_workflow?($test=1233):($test=321); #if($wf_workflow){$test=1233;}else{…

2015-12-14 508

#Perl
设置环境变量

use Win32; use Win32::API; use Win32::OLE qw( in ); my $machine = "."; my $WMIServices = W…

2015-12-14 345

#Perl
Perl批量赋予可执行权限

#!/usr/bin/perl #use Cwd; sub RightAll(){ local($dir) = @_; opendir(DIR,"$dir"|| die "can'…

2015-12-14 489

#Perl
Perl 使用 DBI 连接到数据库

#!\usr\bin\perl use warnings; use strict; use DBI; my $dbh=DBI->connect('dbi:mysql:test…

2015-12-14 912

#Perl
Perl 使用 OLE 自动化来控制 Excel

#!/usr/bin/perl -w use Win32::OLE; $class = 'Excel.Application'; $app = Win32::OLE->new…

2015-12-14 972

#Perl
Perl SAX 方式解析 XML

use XML::Parser; $currentLine = 0; $parser = new XML::Parser(Handlers => {Start => \…

2015-12-14 583

#Perl
Perl 访问 Windows 的剪切板

#!/usr/bin/perl use Win32::Clipboard; $clip = Win32::Clipboard->new(); $clip->Set( "…

2015-12-14 495

#Perl
Perl 语言实现一个窗体

Myapp.pm #!/usr/bin/perl -w use strict; # load wxPerl main module use Wx; # every applicat…

2015-12-14 1,026

#Perl
Recursive Find File In Directory

#!/usr/bin/perl -w use utf8; use strict; use warnings; sub lsrp { my ($dir, $sub, $ext, $p…

2015-12-14 977

#Perl
perl 多线程,实时监控线程数,支持max thread

#!/usr/bin/perl -w #Description:rerun eod job group by system #Auther:Suzm #Date :2015-06-…

2015-12-14 595