如果你有模块使用范例(请尽量简洁)，请帖新贴，
或坛内邮件(主题:perl模块使用范例)给我，由我测试
整理以后，在此发布。
希望多多支持！
真心希望朋友们能在chinaunix受益。大家共同进步！
谢谢！ ：）
已有模块：
说明：
以下例子代码的测试是在FreeBSD & Solaris下进行的，Perl版本为5.005_03。
(1) LWP::Simple, get()
(2) Time::HiRes, gettimeofday(), usleep()
(3) Net::FTP
(4) Expect
(5) XML::Simple, XMLin()
(6) Data::Dumper, Dumper()
(7) IO::Socket
(8) Date::Manip, DateCalc(), UnixDate()
(9) Date::Manip, Date_Cmp()
(10) File::Find, find()
(11) ExtUtils::Installed, new(), modules(), version()
(12) DBI, connect(), prepare(), execute(), fetchrow_array()
(13) Getopt::Std
(14) Proc::ProcessTable
(15) Shell
(16) Time::HiRes, sleep(), time()
(17) HTML::LinkExtor, links(), parse_file()
(18) Net::Telnet, open(), print(), getline()
(19) Compress::Zlib, gzopen(), gzreadline(), gzclose()
(20) Net::POP3, login(), list(), get()
(21) Term::ANSIColor
(22) Date::Calc Calendar(), Today()
(23) Term::Cap, Tgetend(), Tgoto, Tputs()
(24) HTTPD::Log::Filter
(25) Net::LDAP
(26) Net::SMTP mail(), to(), data(), datasend(), auth()
(27) MIME::Base64, encode_base64(), decode_base64()
(28) Net::IMAP::Simple, login(), mailboxes(), select(), get()...
(29) Bio::DB::GenBank, Bio::SeqIO
(30) Spreadsheet::ParseExcel
(31) Text::CSV_XS, parse(), fields(), error_input()
说明：
以下例子代码的测试是在RH Linux7.2下进行的，Perl版本为5.6.0。
(32) Benchmark
(33) HTTP::Daemon, accept(), get_request()...
(34) Array::Compare, compare(), full_compare()...
(35) Algorithm::Diff, diff()
(36) List::Util, max(), min(), sum(), maxstr(), minstr()...
(37) HTML::Parser
(38) Mail::Sender
(1) LWP::Simple, get()
#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);
my $url = shift || "";
my $content = get($url);
print $content;
exit 0;
最简单方便的get网页的方法。
(2) Time::HiRes, gettimeofday(), usleep()
#!/usr/bin/perl -w
use strict;
use Time::HiRes qw(gettimeofday usleep);
my ($start_sec, $start_usec, $end_sec, $end_usec, $time_used);
my $micro_sec = 100000;
($start_sec, $start_usec) = gettimeofday;
foreach(1..20)
{
print `date +\%H:\%M:\%S`;
usleep($micro_sec);
}
($end_sec, $end_usec) = gettimeofday;
$time_used = ($end_sec - $start_sec) + ($end_usec - $start_usec)/1000000;
printf("time used : %.3fsec\n", $time_used);
exit 0;
提供微秒级时间处理。
(3) Net::FTP
#!/usr/bin/perl
use strict;
use Net::FTP;
my $user = "anonymous";
my $passwd = "chinaunix@";
my $host = "ftp.freebsd.org";
my $ftp = Net::FTP->;new("$host", Debug =>; 0)
or die "Can't connect to $host: $@\n";
$ftp->;login("$user","$passwd")
or die "Can't login\n", $ftp->;message;
$ftp->;cwd("/pub/FreeBSD/doc/")
or die "Can't change dir\n", $ftp->;message;
$ftp->;get("README")
or die "get failed\n", $ftp->;message;
$ftp->;quit;
exit 0;
(4) Expect
#!/usr/bin/perl
use strict;
use Expect;
my $timeout = 2;
my $delay = 1;
my $cmd = "ssh";
my @params = qw/202.108.xx.xx -lusername -p22/;
my $pass = "passwd";
my $exp = Expect->;spawn($cmd, @params) or die "Can't spawn $cmd\n";
$exp->;expect($timeout, -re=>;'[Pp]assword:');
$exp->;send_slow($delay, "$pass\r\n");
$exp->;interact();
$exp->;hard_close();
exit 0;
(5) XML::Simple, XMLin()
#!/usr/bin/perl -w
use strict;
use XML::Simple;
my $text = <
;
;
;
;php;
;net.php.servlet;
;
;
;php;
;*.php;
;
;
xml
my $x = XMLin($text);
foreach my $tag(keys %$x)
{
my %h = %{$$x{$tag}};
foreach(keys %h)
{
print "$tag =>; ";
print "$_ =>; $h{$_}\n";
}
}
exit 0;
(6) Data::Dumper, Dumper()
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
print Dumper(\@INC);
print Dumper(\%ENV);
exit 0;
(7) IO::Socket
#!/usr/bin/perl -w
use strict;
use IO::Socket;
my $host = "";
my $port = "80";
my $http_head = "GET / HTTP/1.0\nHost: $host:$port\n\n";
my $sock = IO::Socket::INET->;new("$host:$port")
or die "Socket() error, Reason : $! \n";
print $sock $http_head;
print <$sock>;;
exit 0;
(8) Date::Manip, DateCalc(), UnixDate()
#!/usr/bin/perl
use strict;
use Date::Manip;
my $date=&DateCalc("today","-1 days", 0);#yesterday
my $date=&UnixDate($date, "%Y-%m-%d %T");
print "$date\n";
exit 0;
(9) Date::Manip, Date_Cmp()
#用于时间日期的比较
#!/usr/bin/perl
use strict;
use Date::Manip;
my $date1 = "Fri Jun 6 18:31:42 GMT 2003";
my $date2 = "2003/05/06";
my $flag=&Date_Cmp($date1,$date2);
if($flag<0)
{
print "date1 is earlier!\n";
}
elsif($flag==0)
{
print "the two dates are identical!\n";
}
else
{
print "date2 is earlier!\n";
}
exit 0;
(10) File::Find, find()
#!/usr/bin/perl -w
use strict;
use File::Find;
my $file = "access.log";
my $path = "/";
find(\&process, $path);
sub process{ print $File::Find::dir, "$_\n" if(/$file/); }
exit 0;
#用于在unix文件树结构中查找对象。
(11) ExtUtils::Installed, new(), modules(), version()
查看已经安装的模块的相应信息。
#!/usr/bin/perl
use strict;
use ExtUtils::Installed;
my $inst= ExtUtils::Installed->;new();
my @modules = $inst->;modules();
foreach(@modules)
{
my $ver = $inst->;version($_) || "???";
printf("%-12s -- %s\n", $_, $ver);
}
exit 0;
(12) DBI, connect(), prepare(), execute(), fetchrow_array()
#!/usr/bin/perl
use strict;
use DBI;
my $dbh = DBI->;connect("dbi:mysql:dbname", 'user','passwd', '')
or die "can't connect!\n";
my $sql = qq/show variables/;
my $sth = $dbh->;prepare($sql);
$sth->;execute();
while(my @array=$sth->;fetchrow_array())
{
printf("%-35s", $_) foreach(@array);
print "\n";
}
$dbh ->; disconnect();
exit 0;
(13) Getopt::Std
命令行参数解析。
#!/usr/bin/perl
use strict;
use Getopt::Std;
my %opts;
getopts("c:hv", \%opts);
foreach(keys %opts)
{
/c/ && print "welcome to ", $opts{$_} || "ChinaUnix", "!\n";
/h/ && print "Usage : $0 -[hv] -[c msg] \n";
/v/ && print "This is demo, version 0.001.001 built for $^O\n";
}
exit 0;
(14) Proc::ProcessTable
#直接访问Unix进程表，类似ps command。
#!/usr/bin/perl
use strict;
use Proc::ProcessTable;
my $pt = new Proc::ProcessTable;
foreach(reverse sort @{$pt->;table})
{
print $_->;pid, " =>; ";
print $_->;cmndline, "\n";
}
exit 0;
(15) Shell
#!/usr/bin/perl
use strict;
use Shell;
print "now is : ", date();
print "current time is : ", date("+%T");
my @dirs = ls("-laF");
foreach(@dirs)
{
print if(/\/$/);#print directory
}
exit 0;
Shell命令直接做为函数，在Perl中调用。
Another use of Time::HiRes Module.
(16) Time::HiRes, sleep(), time()
#!/usr/bin/perl
use strict;
use Time::HiRes qw(sleep time);
$| = 1;
my $before = time;
for my $i (1..100)
{
print "$i\n";
sleep(0.01);
}
printf("time used : %.5f seconds\n", time - $before);
exit 0;
use Time::HiRes后，此模块提供sleep(), alarm(), time()的增强版以
取代perl内置的相应函数。
其中sleep()和alarm()的参数可以是小数。比如sleep(0.1)表示休眠0.1秒，
time()可以返回浮点数。
(17) HTML::LinkExtor, links(), parse_file()
#!/usr/bin/perl
use strict;
use HTML::LinkExtor;
my $p = new HTML::LinkExtor;
$p->;parse_file(*DATA);
foreach my $links ($p->;links())
{
map {print "$_ "} @{$links};
print "\n";
}
exit 0;
__DATA__
"">;
;
;
;
;CPAN;
;
;
;;
;
;
;
;
;
;
;
;
;
alt="[CPAN Logo]" height="121" width="250"/>;
;
;
;
;
;;Comprehensive Perl Archive Network;;
;
| ;
;
;
;
;
2003-06-10 online since 1995-10-26
;1662 MB 246 mirrors
;2903 authors 4767 modules
;
| ;
;
;
;
;
Welcome to CPAN! Here you will find All Things Perl.
;
;
;
| ;
;
;
;
;
;
;
;Browsing;
;
- ;;Perl modules;
;
- ;;Perl scripts;
;
- ;;Perl binary distributions ("ports");
;
- ;;Perl source code;
;
- ;;Perl recent arrivals;
;
- ;;recent; Perl modules
;
- ;;CPAN sites; list
;
- ;;CPAN sites; map
;
;
| ;
;
;Searching;
;
- ;;Perl core and CPAN modules documentation ; (Randy Kobes)
;
- ;;Perl core documentation; (Carlos Ramirez)
;
- ;;CPAN modules, distributions, and authors; (search.cpan.org)
;
- ;;CPAN modules documentation; (Ulrich Pfeifer)
;
;
;FAQ etc;
;
- ;;CPAN Frequently Asked Questions;
;
- ;;Perl Mailing Lists;
;
- ;;Perl Bookmarks;
;
;
;;
Yours Eclectically, The Self-Appointed Master Librarian (OOK!) of the CPAN
;
;Jarkko Hietaniemi;
;cpan@perl.org;
;[Disclaimer];
;
;
| ;
;
;
;
;
;
;
;
;
;;
;
;;
;
| ;
;
;
;
;
;
;
CPAN master site hosted by
;
;
;
;
;
;;;
;
;
;
;
| ;
;
;
;
