Perl：如何获取soundcloud feed mp3的链接目标

Question

我想在perl中的soundcloud feed中检索mp3的mp3链接目标，例如此播客网址的最终位置：http://feeds.soundcloud.com/stream/176971524-thetalkshow-thetalkshow-100.mp3

如果我尝试将其转换为comlex http://ec-media.soundcloud.com/ ....地址。

是否有可能在Perl中获得此解析的ec-media.soundcloud地址？

我已经尝试过以下代码，但没有成功

use LWP::UserAgent qw();
my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://feeds.soundcloud.com/stream/176971524-thetalkshow-thetalkshow-100.mp3');
print $response->request->uri . "\n";

Answer 1

您可以使用LWP :: Simple下载mp3文件：

use strict;
use warnings;
use LWP::Simple;
my $url = "http://feeds.soundcloud.com/stream/176971524-thetalkshow-thetalkshow-100.mp3";
getstore($url, "my-file-name.mp3");

Answer 2

您的意思是获取301或302重定向地址。只需禁用自动重定向。

use LWP::UserAgent qw();
my $ua = LWP::UserAgent->new;
$ua->max_redirect(0); # disable auto redirect
my $response = $ua->get('http://feeds.soundcloud.com/stream/176971524-thetalkshow-thetalkshow-100.mp3');
print "new location: " . $response->header('Location');