#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
A Perl5 Script Copy File Via SSH
#!/usr/bin/env perl use utf8; use strict; use warnings; use 5.10.0; use File::Copy qw/copy…
#Perl
perl使用xpath解析xml文件
<?xml version="1.0" encoding="utf-8" ?> <employees> <employee age="30"> …
#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]) …
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
