#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 => '…

#Perl

从国家自然科学基金里面爬取所有的基金项目

use LWP::UserAgent; use HTML::TreeBuilder; use LWP::Simple; use URI; use Encode; use LWP::…

#Perl

perl遍历所有文件并修改或插入相关信息

#!/ms/dist/perl5/bin/perl5.10 use Tie::File; use strict; use warnings; sub process{ my @li…

#Perl

递归遍历文件夹统计文件的行数

#!/usr/bin/perl $pwd="/home/program/"; $wc_temp="$pwd/wc_temp"; sub sum{ my @file=<*>…

#Perl

使用正则表达式找出不包含特定字符串的条目

^xl_(?!.*?_online).*?$

#Perl

连接MySQL 读取表内容

#!/usr/bin/perl # ppm install DBD::mysql use DBI; # use strict; my $dbname = "test"; my $l…

#Perl

Perl练习——九九乘法表

#! perl -w use strict; use Win32::OLE; use Win32::OLE::Const 'Microsoft Excel'; $Win32::OL…