#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-…
#Perl
FizzBuzzWhizz
#!/usr/bin/perl use strict; die "Wrong argument number\n" if @ARGV != 3; # print to file i…
#Perl
防止网站被爬虫爬取的几种解决办法
#! /bin/bash LOGFILE=/var/log/nginx/access.log PREFIX=/etc/spiders #日志中大部分蜘蛛都有spider的关键字，但…
#Perl
遍历当前目录的所有文件
#!perl # #Author：caryl # # use strict; use Cwd; use File::Spec; use File::Basename; open S…
#Perl
把二进制翻译成中文/英文
#!/usr/bin/perl -w #use diagnostics; sub bin2cn{ die "Error:1001:bin2cn\n" if chop($_[0]) …
#Perl
顺序查找
#!/usr/bin/perl use strict; use warnings; use feature qw(say); print "输入需要查找的元素："; my $obj…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
