Question

I have a website where some of the downloadale files are stored. say the website contains files like

GTP-UGP-LATEST-5.3.0.123.iso
GTP-UGP-LATEST-5.3.0.127.iso
GTP-UGP-LATEST-5.3.0.132.iso
GTP-UGP-LATEST-5.3.0.136.iso

PRE-UGP-LATEST-5.3.0.124.iso
PRE-UGP-LATEST-5.3.0.126.iso
PRE-UGP-LATEST-5.3.0.127.iso
PRE-UGP-LATEST-5.3.0.130.iso

这些档案的数量将随着日复一日地增加,其编号为自动编号。

我的最终目标是每天管理文字(cronjob),以检查是否有任何新档案,如果是下载所增加的所有新档案。

我的逻辑是,从GTP*(第5.3.0.123段)到(530123页)查阅所有档案的版本,然后与以前下载的版本相比,后者储存在当地档案中。如果能够匹配,我们用从全球优惠制开始的最大版本下载文件。

And we do similary with file starting with PRE*

穷人经常表达,请帮助我。

请让我知道,将所有档案都列入一个链接,然后将其写到当地档案中。如果我知道这么多,我就认为我可以从那里来。

Answer 1

<>上>: 我将做以下工作(测试):

#!/usr/bin/env perl

use Data::Dumper qw(Dumper);
use File::Glob  :glob ;

sub by_version {
  my $v_a = $a;
  my $v_b = $b;
  $v_a =~ s/[^d.]//g;
  $v_b =~ s/[^d.]//g;
  my @version_a = split(/./, $v_a);
  my @version_b = split(/./, $v_b);

  for (my $i = 0; $i < scalar(@version_a); $i++) {
    my $comp = $version_a[$i] <=> $version_b[$i];
    return $comp if ($comp != 0);
  }

  return 0;
}

my @files = bsd_glob( GTP-UGP-LATEST-*.iso );
my @sorted_files = sort by_version @files;
print Dumper(@sorted_files);

Answer 2

或者,你只能从下载目录中提一下,因为你只想到新的目录。

友情链接