如何用URL数组实现Perl多线程HTTP请求？移除读文件功能

这里提供几种兼容原有读文件逻辑的实现方式，不用移除读文件代码就能改用自定义URL数组：

方案1：直接覆盖读文件后的URL列表变量 #

如果原脚本是读取文件后把URL存到某个数组（比如@urls），直接在读取文件的代码后用自定义数组覆盖它就行，原多线程逻辑完全不用改：

use strict;
use warnings;
use threads;
use Thread::Queue;

# 原有读文件逻辑（保留不动）
my @urls;
open my $fh, '<', 'urls.txt' or die $!;
while (<$fh>) {
    chomp;
    push @urls, $_ if $_;
}
close $fh;

# 新增：用自定义URL数组覆盖原有列表
my @custom_urls = (
    "https://example.com/xsd",
    "https://example.com/xys",
    # 更多URL...
);
@urls = @custom_urls; # 直接替换，原多线程逻辑用@urls即可

# 原有多线程处理逻辑（保留不动）
my $queue = Thread::Queue->new(@urls);
sub worker {
    while (my $url = $queue->dequeue()) {
        # HTTP请求示例逻辑
        use LWP::UserAgent;
        my $ua = LWP::UserAgent->new;
        my $resp = $ua->get($url);
        print "URL: $url, Status: " . $resp->code . "\n";
    }
}

# 创建并启动线程
my @threads;
for (1..5) {
    push @threads, threads->create(\&worker);
}
$_->join() for @threads;

方案2：添加自定义数组优先级判断 #

如果需要保留「有自定义数组就用数组，没有就读文件」的灵活逻辑，可以加个简单判断：

use strict;
use warnings;
use threads;
use Thread::Queue;

# 定义自定义URL数组（注释掉则自动读文件）
my @custom_urls = (
    "https://example.com/xsd",
    "https://example.com/xys",
);

my @urls;
# 判断是否有自定义数组，有则用数组，无则读文件
if (@custom_urls) {
    @urls = @custom_urls;
} else {
    # 原有读文件逻辑（保留不动）
    open my $fh, '<', 'urls.txt' or die $!;
    while (<$fh>) {
        chomp;
        push @urls, $_ if $_;
    }
    close $fh;
}

# 后续多线程逻辑与原脚本一致，省略...

方案3：临时文件桥接（最小改动原读文件逻辑） #

如果原读文件逻辑非常复杂不想修改，可以把自定义数组写入临时文件，让原脚本读取这个临时文件：

use strict;
use warnings;
use threads;
use Thread::Queue;
use File::Temp qw(tempfile);

# 自定义URL数组
my @custom_urls = (
    "https://example.com/xsd",
    "https://example.com/xys",
);

# 写入临时文件（脚本结束后自动删除）
my ($fh, $temp_file) = tempfile(UNLINK => 1);
print $fh "$_\n" for @custom_urls;
close $fh;

# 原有读文件逻辑：仅修改读取的文件名即可
my @urls;
open my $read_fh, '<', $temp_file or die $!;
while (<$read_fh>) {
    chomp;
    push @urls, $_ if $_;
}
close $read_fh;

# 后续多线程逻辑不变，省略...

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