无法重新组合 MP3 数据的分块下载

Question

我正在使用 Perl 和 WWW::Mechanize 下载一个 MP3 文件，该文件以 400KB 的块（大约 20 秒）提供。

当我在文件句柄上使用binmode 保存数据时，在每个块到达时附加它，只有第一个块被正确播放；其余的不是。

当我不使用binmode 时，我无法播放整个文件——它可以播放但听起来很有趣！

这是我的程序

use WWW::Mechanize;

$agent = WWW::Mechanize->new( cookie_jar => {} );

@links = ("http://thehost.com/chunk1","http://thehost.com/chunk2","http://thehost.com/chunk3");

foreach (@links){
    $agent->get($_);

    my $filename = 'test.mp3';
    open(my $fh, '>>', $filename) or die "Could not open file '$filename' $!";
    binmode $fh;
    print $fh $agent->content;
    close $fh;
}

我做错了什么？

更新

这些是返回的 HTTP 标头。

Cache-Control: public
Connection: close
Date: Tue, 28 Oct 2014 18:38:37 GMT
Pragma:
Server: Apache
Content-Length: 409600
Content-Type: application/octet-stream
Expires: Sat, 24 Oct 2015 12:08:00 GMT
Access-Control-Allow-Origin: *
Client-Date: Tue, 28 Oct 2014 18:38:28 GMT
Client-Peer: **.**.***.***:80
Client-Response-Num: 1

Answer 1

我怀疑提供的内容带有不正确的标头，并且当您使用自动解码的 API 时，这会破坏八位字节流。

请改用mirror 方法，并在下载后连接文件。

Answer 2

我怀疑单个 mp3 文件只是在一定数量的字节后被拆分，然后这些块作为单独的下载提供。相反，我假设这些都是单独的 mp3 文件，其中包含 20 秒的原始文件，并且每个 URL 都包含正确的 mp3 文件。因为 mp3 不是数据，而是标题和数据，所以您不能通过将它们连接在一起来简单地合并这些 mp3 文件。相反，您必须使用 ffmpeg 之类的程序从多个 mp3 文件创建单个 mp3 文件，请参阅https://superuser.com/questions/314239/how-to-join-merge-many-mp3-files

Answer 3

我无法解释你得到的行为，但WWW::Mechanize 用于处理 HTML 文本页面，而不是二进制数据。直接使用LWP::UserAgent 模块一点也不难。

我建议你改用这样的东西。

use strict;
use warnings;
use 5.010;
use autodie;

use LWP;

my @links = qw(
  http://thehost.com/chunk1
  http://thehost.com/chunk2
  http://thehost.com/chunk3
);

my $agent = LWP::UserAgent->new;

my $filename = 'test.mp3';
open my $fh, '>:raw', $filename;

for my $link (@links) {
    my $resp = $agent->get($link);
    die $resp->status_line unless $resp->is_success;
    print $fh $resp->decoded_content;
}

close $fh;

如果还有问题，请添加这样的一行

print $resp->headers_as_string, "\n\n";

在get 通话后立即报告您获得的结果。

您也可以通过使用content 方法而不是decoded_content 来获得一些结果。

当然，如果您能提供真实的 URL，它可能对我们有很大帮助，但我知道您可能无法做到这一点。