#Perl
Perl快速入门
#!/usr/bin/env perl # # 基本语法 # ;用于语句结束符 # #用于注释 # ""用于表示字符串，变量可以在""中被替换，如： $var = "world."…
#Perl
哈希的运用
print "请输入哈希的键值，输入结束后将统计每个哈希键输入的次数:\n"; while($line=<STDIN>){ chomp($line); if(exist…
#Perl
Perl批量执行Linux安装程序和脚本
#!/usr/bin/perl #use Cwd; sub ExecuteAll(){ local($dir) = @_; opendir(DIR,"$dir"|| die "ca…
#Perl
Perl 的 DBI connect() 方法的使用
$dbh= DBI->connect("dbi:<RDMS>:<database>","<username>","<password…
#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…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
