Question

我正在尝试使用Perl中的Amazon::S3模块从s3获取文件。我成功地能够下载没有前缀但无法获取test/abc.txt等前缀文件的文件。

我正在使用以下代码。

sub export_bucket {
  my ($conn, $bucket, $directory) = @_;
  $bucket = $conn->bucket($bucket);
  my $response = $bucket->list();
  print $response->{bucket}."\n";
  for my $key (@{ $response->{keys} }) {
        print "\t".$key->{key}."\n";  
        _export_file($conn,$bucket,$key->{key}, $directory.'/'.$key->{key});
  }
}

sub _export_file {
  my ($conn,$bucket,$name,$path) = @_;
  print "Downloading $name file","\n";
  my $test = $bucket->get_key_filename($name,'GET',$path);
  print Dumper($test);
  my $acl = $bucket->get_acl($name);
  print Dumper($acl);
  open my $acl_file, '>', $path.'.acl';
  print $acl_file $acl;
  close $acl_file;
}

建议我应该做些什么更改，以便在出现前缀/文件夹时我也可以下载该文件夹。

由于

Answer 1

您需要修改代码以在本地文件系统上创建目标目录（如果该目录尚不存在）。看起来应该是这样的：

use File::Path qw[make_path];

sub export_bucket {
    my ( $conn, $bucket, $directory ) = @_;
    $bucket = $conn->bucket($bucket);
    my $response = $bucket->list();
    print $response->{bucket} . "\n";
    for my $key ( @{ $response->{keys} } ) {
        print "\t" . $key->{key} . "\n";
        _export_file( $conn, $bucket, $key->{key}, $directory . '/' . $key->{key} );
    }
}

sub _export_file {
    my ( $conn, $bucket, $name, $path ) = @_;
    print "Downloading $name file", "\n";
    my $test = $bucket->get_key_filename( $name, 'GET', $path );
    print Dumper($test);
    my $acl = $bucket->get_acl($name);
    print Dumper($acl);

    ## get path directory part
    my ($dir_part) = $path =~ /(.+)\/[^\/]+$/;

    unless ( -d $dir_part ) {
        make_path($dir_part);
    }

    open my $acl_file, '>', $path . '.acl';
    print $acl_file $acl;
    close $acl_file;
}

Answer 2

也许$ directory在失败的情况下已经有一个尾随的“/”（或者$ key-＆gt; {key}有一个前面的斜杠）？尝试在代码中调试打印$ directory和$ path，以确切了解字符串参数是什么。

使用perl获取并上传文件和前缀文件到s3

2 个答案: