#Perl

perl symlink 相对路径

my $sym_file = '/v/global/use/a/file.csv'; my $file = '/v/gobal/use/a/file_1_4_2014.csv'; …

#Perl

获取本机所有IP和设备的绑定情况

#!/usr/bin/perl use strict; use warnings; #首先，文件通过参数传入 my $arg_len = @ARGV; my @lines; if(…

#Perl

INI文件的解析

package IniConf; use base 'Exporter'; use strict; #export function our @EXPORT = qw(load_c…

#Perl

perl中的队列

#!/usr/bin/perl use strict; #use warnings; use feature 'say'; my @people = ("Foo", "Bar");…

#Perl

分割合并文件

use strict; my $ItemSize = 1024 * 1024 * 100; open(FILEHANDLE, "< a1.mkv"); binmode FIL…

#Perl

perl解析xml

use XML::Simple; my $xmlfile = "result.xml"; my $casesT = XML::Simple->new( ForceArray …

#Perl

SQL2000数据库比较

#Perl

perl通过IMAP接收、处理邮件

#!/usr/bin/perl use warnings; use strict; use Mail::IMAPClient; use Term::ReadKey; print "…

#Perl

Perl 列出系统所有的帐号（Windows）

#FILTER_NORMAL_ACCOUNT Lists normal accounts on a system. #FILTER_SERVER_TRUST_ACCOUNT Lis…

#Perl

Perl 使用 fork 的 socket 服务器

#!/usr/bin/perl use warnings; use IO::Socket; my $servsock = IO::Socket::INET->new( Lis…

#Perl

对存储过程表的列及值添加标记，方便修改

#!/usr/bin/perl -w use warnings; if(open LOGO ,"<sql.txt" or die "\ncan't find File: $!…

#Perl

Perl 使用指定的 User-Agent 抓取网页

#!/usr/bin/perl -w use LWP; use strict; my $browser = LWP::UserAgent->new(agent => '…