#Perl
数组多叉树递归遍历
sub find_max_nest{ my($arr_name)=@_; $nest_counter++; if($nest_counter>$max_nest){ $max…
#Perl
Perl 之 Stream XML::Parser
use XML::Parser; my $parser = XML::Parser->new( Handlers => {Start=>\&handle_…
#Perl
Perl 在 Windows 上添加共享目录
#!/usr/bin/perl -w use Win32; use Win32::NetResource; use Win32::WinError; # Error code # …
#Perl
生成搜索query
#!/usr/bin/perl -w use strict; #==声明变量====================================================…
#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'…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
