如何使用 Perl 创建一个目录并通过 FTP 将文件提取到该目录中？

Question

我有一个如下所示的文件：

ftp://url1/files1.tar.gz dir1
ftp://url2/files2.txt dir2
.... many more...

我想要做的是这些步骤：

1. 根据第 2 列创建目录
2. Unix 'cd' 到那个目录
3. 基于 column1 使用“wget”下载文件

但是我的这个方法怎么不行

while(<>) {
  chomp;
  my ($url,$dir) = split(/\t/,$_);
  system("mkdir $dir");
  system("cd $dir");   
  system("wget $url"); # This doesn't get executed
}

正确的做法是什么？

Answer 1

尽可能使用原生 Perl 解决方案：

• cd 可以用 chdir 完成
• mkdir 可以用 mkdir 完成
• mkdir -p（如果 dir 存在就不要死，递归创建）可以用 Perl 自带的 File::Path 来完成
• wget 可以用 LWP::Simple 完成

我将如何实现：

use File::Spec::Functions qw(catfile);  # adds a '/' between things (or '\' on Windows)
use LWP::Simple qw(mirror);
use File::Path qw(mkpath);
use File::Basename;
use URI;

while (<>) {
    chomp;
    my ($url, $dir) = split /\t/;
    mkpath($dir);

    # Use the 'filename' of the $url to save 
    my $file = basename(URI->new($url)->path);
    mirror($url, catfile($dir, $file));
}

如果你这样做，你会得到：

• 平台之间的可移植性
• shell 之间的可移植性
• Perl 异常处理（通过返回值或die）
• Perl 输入/输出（无需转义）
• 未来的灵活性（如果您更改了计算文件名的方式，或者您存储 Web 内容的方式，或者如果您想要并行运行 Web 请求）

Answer 2

我会告诉你一件事错了。 system("cd $dir"); 将创建一个子shell，进入该子shell内的目录，然后退出。

运行 Perl 的进程仍将在其原始目录中。

我不确定这是否是您的具体问题，因为 # Fail here 对细节有点了解 :-)

一种可能的解决方法是：

system("mkdir $dir && cd $dir && wget $url");

这将在 one 子外壳中完成所有工作，因此不应遭受上述问题的困扰。

---

事实上，这个脚本运行良好：

use strict;
use warnings;
system ("mkdir qwert && cd qwert && pwd && cd .. && rmdir qwert");

输出：

/home/pax/qwert