perl - s3cmd目录列表-仅文件名-perl一线？

Question

目前，我正在使用s3cmd ls s3://location/ > file.txt来获取s3存储桶的内容列表并保存为txt。但是上述返回日期，文件大小的路径和文件名。

例如:

2011-10-18 08:52      6148   s3://location//picture_1.jpg

我只需要s3存储桶的文件名-因此在上面的示例中，我只需要 picture_1.jpg。
有什么建议么？

可以在首次导出后用Perl one衬板完成此操作吗？

Answer 1

File::Listing不支持此格式，因为此列表格式的设计者非常愚蠢，无法简单地重用现有格式。让我们手动对其进行解析。

use URI;
my @ls = (
    "2011-10-18 08:52 6148 s3://location//picture_1.jpg\n",
    "2011-10-18 08:52 6148 s3://location//picture_2.jpg\n",
    "2011-10-18 08:52 6148 s3://location//picture_3.jpg\n",
);

for my $line (@ls) {
    chomp $line;
    my $basename = (URI->new((split q( ), $line)[-1])->path_segments)[-1];
}

__END__
picture_1.jpg
picture_2.jpg
picture_3.jpg

作为单人:

perl -mURI -lne 'print ((URI->new((split q( ), $line)[-1])->path_segments)[-1])' < input