perl常用模块

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";
(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()
(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()
exit 0;
(13) Getopt::Std
#!/usr/bin/perl
use strict;
use Getopt::Std;
my %opts;
getopts("c:hv", %opts);
</servlet>
<servlet-mapping>
<servlet-name>php</servlet-name>
<url-pattern>*.php</url-pattern>
</servlet-mapping>
</web-app>
xml
my $x = XMLin($text);
use strict;
use Net::Telnet;
use constant HOST => '';
use constant USER => 'lstein';
use constant PASS => 'xyzzy';
my $telnet=Net::Telnet->new(HOST);
}
elsif($flag==0)
{
print "the two dates are identical!\n";
}
else
{
print "date2 is earlier!\n";
}
exit 0;
(9) Date::Manip, Date_Cmp()
(10) File::Find, find()
$ftp->get(FILE) or die $ftp->message;
$ftp->quit;
warn "File retrieved successfully.\n";
(2) Net::Telnet
#!/usr/bin/perl -w
# file:remoteps.pl
#!/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/); }
my $sth = $dbh->prepare($sql);
$sth->execute();
while(my @array=$sth->fetchrow_array())
{
printf("%-35s", $_) foreach(@array);
print "\n";
}
$dbh -> disconnect();
(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()
# file: ftp_recent.pl
# Figure 6.1: Downloading a single file with Net::FTP
use Net::FTP;
use constant HOST => '';
use constant DIR => '/pub/CPAN';
#!/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;
(1) Net::FTP
(2) Net::Telnet
(3) LWP::Simple, get()
(4) Expect
(5) XML::Simple, XMLin()
(6) Data::Dumper, Dumper()
(7) IO::Socket
(8) Date::Manip, DateCalc(), UnixDate()
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 earlierip, Date_Cmp()
(10) File::Find, find()
(11) ExtUtils::Installed, new(), modules(), version()
(12) DBI, connect(), prepare(), execute(), fetchrow_array()
$exp->expect($timeout, -re=>'[Pp]assword:');
$exp->send_slow($delay, "$pass\r\n");
$exp->interact();
$exp->hard_close();
exit 0;
(5) XML::Simple, XMLin()
(37) HTML::Parser
(38) Mail::Sender
(39) Time::HiRes, gettimeofday(), usleep()
(40) Image::Magick
(41) Data::SearchReplace
(1)Net::FTP
#!/usr/bin/perl -w
#!/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/;
exit 0;
#用于在unix文件树结构中查找对象。
(11) ExtUtils::Installed, new(), modules(), version()
#!/usr/bin/perl
use strict;
use ExtUtils::Installed;
my $inst= ExtUtils::Installed->new();
my $url = shift || "";
my $content = get($url);
print $content;
exit 0;
#最简单方便的get网页的方法。
(4) Expect
#!/usr/bin/perl
use strict;
$telnet->login(USER,PASS);
my @lines=$telnet->cmd('ps -ef');
print @lines;
(3) LWP::Simple, get()