#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
perl登录人人并发状态
#!/usr/bin/perl # Copyright 2014 tkorays. All rights reserved. # author tkorays # email tk…
#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( "…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
