########################################################### 提供個(gè)人自己參考的perl代碼片段... ###########################################################
#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get); my $url = shift || "http://www.51cto.com";
my $content = get($url); print $content; exit 0;
獲取網(wǎng)頁(yè)
#!/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;
FTP下載
#!/usr/bin/perl
use Mail::Sender;
#my $mailtext = "Das is\'t der Text\nden ich gerne senden wuerde...";
my $sender = new Mail::Sender {
??????? smtp => 'smtp.163.com',
???? from =>?'zhuzhengju20@163.com',
???? auth => 'LOGIN',
???? authid => 'zhuzhengju20',
???? authpwd => '2000',
???? on_errors => undef,
} or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";
$sender->MailFile({to =>'hahazhu0634@126.com',
?????? subject => 'Here is the file',
?????? msg => "I'm sending you the list you wanted.",
?????? file => './name.txt'}) or print $Mail::Sender::Error;
$sender ->Close();
發(fā)送帶附件的郵件,需要驗(yàn)證,若不需要驗(yàn)證請(qǐng)參考下面的例子!~
[補(bǔ)充知識(shí)]
(1)安裝Mail::Sender模組
perl -MCPAN -e shell
install Mail::Sender
(2)測(cè)試auth參數(shù)使用以下命令：
#perl -MMail::Sender -e "Mail::Sender->printAuthProtocols('smtp.sina.com.cn')"
#!/usr/bin/perl use Mail::Sender; open(IN, "< ./index.html") or die(""); $sender = new Mail::Sender{
??????????????????????????????????????????????????????? smtp =>'localhost',
??????????????????????????????????????????????????????? from =>'root@localhost'
??????????????????????????????????????????????????????? }; $sender->Open({
??????????????????????????????????????? to =>'zhuzhengju20@163.com',
??????????????????????????????????????? subject =>'hello,baby!',
??????????????????????????????????????? msg =>"please,recive content!",
??????????????????????????????????????? ctype =>"text/html",
??????????????????????????????????????? encoding =>"7bit",
??????????????????????????????????????? }); while(<IN>)
{
??????? $sender->SendEx($_);
}
close IN;
$sender->Close(); print $Mail::Sender::Error eq "" ? "send ok!\n" : $Mail::Sender::Error;
從本地發(fā)送HTML的郵件,不需要本地驗(yàn)證(若需驗(yàn)證,請(qǐng)參考上面的例子!~)
#!/usr/bin/perl
# fileName: predate
my %mon=(
? 1 =>"Jan",? 2 =>"Feb",? 3 =>"Mar",? 4 =>"Apr",
? 5 =>"May",? 6 =>"Jun",? 7 =>"Jul",? 8 =>"Aug",
? 9 =>"Sep",? 10 =>"Oct", 11 =>"Nov", 12 =>"Dec"
);
my ($sec1,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time-86400);
?? $mon++;
?? $mon=$mon{$mon};
?? $mday = sprintf("%02s",$mday);
?? $hour = sprintf("%02s",$hour);
?? $min = sprintf("%02s",$min);
?? $sec = sprintf("%02s",$sec);
?? $year+=1900;
print "$mday/$mon/$year\n";
print "$hour:$min:$sec\n";
[注意:]
顯示昨天的時(shí)間,如果將localtime(time-86400)改成localtime(time)那么時(shí)間就為今天的時(shí)間了

本文轉(zhuǎn)自hahazhu0634 51CTO博客，原文鏈接：http://blog.51cto.com/5ydycm/166240，如需轉(zhuǎn)載請(qǐng)自行聯(lián)系原作者

總結(jié)

以上是生活随笔為你收集整理的perl模块编程的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。