获取国家地理每日图片的perl脚本

#文件名：GetDaliyPic.pl
#作者：穆东栋
#功能：获取国家地理每日图片
#备注：本脚本参考网络资料而作，供perl语言学习用
#!/usr/bin/perl
use 5.010;
use LWP::Simple;
use Cwd;
use strict;

#获取网页并解析每日图片的url
say "Please Wait for Getting Page……";
my $source = get '';
my $pic_link;
if ($source =~ /\"(http:\/\/[^\s]+?wallpaper[^\s]+?\.jpg)\"/g)
{
     $pic_link = $1;
}
say "Get URL:$pic_link";
say "Please Wait for Downloading……";

#建立下载目录
my $restore_dir = "./photography";
unless (-d $restore_dir)
{
    mkdir $restore_dir, 0755 or die "Cannot make pic directory: $!";
}
chdir $restore_dir;

#用日期生成文件名
my ($year,$mon,$day) = (localtime)[5,4,3];
$year += 1900;
$mon += 1;
$day -= 1;
my $today=sprintf("%04u-%02u-%02u",$year,$mon,$day);
my $filename = "$today"." wallpaper\.jpg";

#下载并存储图片
my $code = getstore($pic_link, $filename);
if (is_error($code))
{
    say "Get The Photo Failed!";
}
else
{
    say "Restore the photo to $restore_dir/$filename!";}