求助：作为icecast2与VLC客户端路由的Perl脚本无法连接

你的脚本存在几个关键问题，导致客户端无法连接到流：

1. 无限流导致的阻塞问题 #

Icecast的音频流是无限流式传输，而你用LWP::UserAgent->get()会尝试下载整个流到本地。因为流永远不会结束，这个操作会一直阻塞，永远不会走到后续的代码（包括print "Request received\n"），这就是服务器没有任何调试输出的核心原因。

2. 错误的流处理方式 #

你试图把整个流缓存到临时文件再返回给客户端，这完全不符合流式音频的设计。客户端需要实时接收音频数据，而不是等待脚本下载完整个无限流。

3. Plack启动配置冲突 #

你同时用plackup命令行参数和脚本内的Plack::Runner配置，两者会产生冲突，可能导致服务器没有正确监听指定端口。

修改后的可行代码 #

下面是修复后的脚本，采用实时流代理的方式处理音频，避免阻塞，并统一启动方式：

#!/usr/bin/env perl
use strict;
use warnings;

use LWP::UserAgent;
use Plack::Request;

my $source_url = 'http://server1.example.com/stream.mp3';
my $redirect_url = 'http://server2.example.com/stream.mp3';
my $ua = LWP::UserAgent->new();
$ua->timeout(5); # 设置超时，避免连接源服务器时无限阻塞

print "Starting server on port 8000\n";

my $app = sub {
    my $env = shift;
    my $req = Plack::Request->new($env);
    print "Received request from " . $req->address . "\n";

    # 先发送HEAD请求检查源服务器状态（轻量不阻塞）
    my $head_response = $ua->head($source_url);
    if ($head_response->is_success) {
        print "Source server online, streaming...\n";
        # 使用Plack流式响应实时转发音频
        return sub {
            my $responder = shift;
            my $writer = $responder->([
                200,
                [
                    'Content-Type' => 'audio/mpeg',
                    'icy-metaint' => 8192,
                    'icy-name' => 'My Stream',
                    'icy-description' => 'My stream description',
                    'icy-genre' => 'variety',
                    'icy-pub' => 1,
                    'icy-br' => 128,
                    'Transfer-Encoding' => 'chunked', # 流式传输必须用chunked编码
                ]
            ]);

            # 用LWP的回调函数实时接收并转发数据
            $ua->get($source_url, ':content_cb' => sub {
                my ($chunk, $response, $proto) = @_;
                $writer->write($chunk);
            });

            $writer->close();
        };
    } else {
        print "Source server offline, redirecting to backup\n";
        return [
            302,
            [ 'Location' => $redirect_url, 'Connection' => 'close' ],
            [],
        ];
    }
};

# 直接用Plack::Runner启动，避免和plackup命令混用
use Plack::Runner;
my $runner = Plack::Runner->new;
$runner->parse_options(qw(--listen :8000 --server HTTP::Server::PSGI));
$runner->run($app);

使用说明 #

1. 启动脚本直接运行：perl testStreamingServer.pl，不要再用plackup命令，避免配置冲突。
2. 脚本会先发送HEAD请求检查源服务器状态，比GET轻量且不会阻塞。
3. 源服务器可用时，采用流式转发：每接收到一块音频数据，立即发送给客户端，完全符合Icecast的流式传输逻辑。
4. 设置了连接超时，避免连接源服务器失败时无限阻塞。

内容的提问来源于stack exchange，提问作者user3785044