向后测试所有可能日期的 Perl 脚本

Question

我在网上找到这个代码 (Source) 来下载 bing 张图片。

此 perl 脚本下载今天 Bing 壁纸图像，我如何更改它以测试所有可能的日期？它什么时候停止并不重要，因为我要手动停止。

我尝试了一些选项，但我不知道 perl，这让我有点沮丧。

非常感谢！

#!/usr/bin/perl
$\="\n";
use strict;
use warnings;
use Data::Dumper;
use LWP::Simple;
use JSON;
use POSIX qw/strftime/;
 
my $base_url = "http://www.bing.com/";
my $json_url = "http://www.bing.com/HPImageArchive.aspx?format=js&n=1&mkt=en-US";
my $output_dir = "C:\Downloads\Wallpaper";
 
my $content = get($json_url)
  or die "Failed to retrieve $json_url! $! $@";
  
my $json = from_json($content)
  or die "Failed to parse json response! $! $@";
  
my $image_url = $base_url . $json->{images}[0]->{url};
print "Today's Image: $image_url";
 
my $date = strftime('%Y_%m_%d',localtime);
my $filename = "$output_dir\$date.jpg";
print $filename;
 
my $status = getstore($image_url,$filename);
if($status == 200)
{
  print "HTTP Response OK.";
  my $size = -s $filename;
  if($size > 0)
  {
    print "Retrieved $size bytes.";
  }
  elsif($size == 0)
  {
    print "Seems we have retrieved a zero-byte image.";
  }
}
else
{
  print "HTTP Response: $status";
}```

Answer 1

使用日期时间操作模块。 DateTime 是一个自然的选择，因为它是最完整、最全面的日期时间库，具有非常一致的界面和行为。

这是一个非常粗略的例子，向后迭代几天

use warnings;
use strict;
use feature 'say';

use DateTime;
use DateTime::Format::Strptime;

my $date_stop = shift // '2021-02-01';  # input format: yyyy-mm-dd 

my $dt = DateTime->today(time_zone => 'local');

my $dt_stop = DateTime::Format::Strptime->new(
    pattern => '%Y-%m-%d',
    time_zone => 'local',
    on_error => 'croak',
)->parse_datetime($date_stop)->truncate(to => 'day');


while ($dt >= $dt_stop) { 
    say $dt->ymd('-');
    $dt->subtract(days => 1); 
}

虽然它可以正常工作，但其中隐藏了一些功能和微妙之处。请参阅文档。

我使用local时区；适当调整。我 truncate 到天，通过使用 today（这样做）并通过显式截断从格式创建的对象，将时间组件设置为零。如果您调整 need/want 次，请注意这确实会影响比较（和计算），因此请仔细考虑您的需要。

我使用 DateTime::Format::Strptime 来展示如何使用各种格式（几乎全部来自 strptime(3)）来启动对象，DateTime 适当的东西对我们没有用。

Answer 2

This perl script download the todays Bing wallpaper image, how I can change it to test all possible dates backwards?

我读为：我想下载过去几天的图片。
不幸的是，这里只提供了最后 8 张图片。 - 您在初始请求中使用了足够大的 n，然后遍历结果。
日期已经在 json 中，因此不需要日期模块。

#!/usr/bin/perl
$\="\n";
use strict;
use warnings;
use Data::Dumper;
use LWP::Simple;
use JSON;
use POSIX qw/strftime/;
use Data::Dumper;
my $base_url = "http://www.bing.com/";
my $json_url = "http://www.bing.com/HPImageArchive.aspx?format=js&n=100&mkt=en-US";
my $output_dir = "C:\Downloads\Wallpaper";
 
my $content = get($json_url)
  or die "Failed to retrieve $json_url! $! $@";
  
my $json = from_json($content)
    or die "Failed to parse json response! $! $@";
print Dumper $json;

my $images = $json->{images};
for my $image (@$images) {
    my $image_url = $base_url . $image->{url};

    my $date = $image->{startdate};
    $date =~ s/(\d{4})(\d{2})(\d{2})/__/;
    my $filename = "$output_dir\$date.jpg";
    print $filename;
 
    my $status = getstore($image_url,$filename);
    if ($status == 200) {
        print "HTTP Response OK.";
        my $size = -s $filename;
        if ($size > 0) {
            print "Retrieved $size bytes.";
        } elsif ($size == 0) {
            print "Seems we have retrieved a zero-byte image.";
        }
    } else {
        print "HTTP Response: $status";
    }
}

向后测试所有可能日期的 Perl 脚本

Perl script to test all posible dates backwards

perl

download

bing