Perl：期待尚未运行的命令

Question

假设我有以下代码：

foreach my $site (@site) {
    my $enter = `curl -s "$site" -H "Referer: https://OTHERSITE.potato"`;
}

是否可以在<{em> foreach函数之前只打印curl命令（OTHERSITE.potato）的referer？

我不确定如何开始，因为通常当我想要打印某些内容时，它已经存储为字符串

编辑：由于有些人不理解这个问题，因此无法修改$enter。有没有办法“期待”在程序到达之前检索$enter的内容？

Answer 1

那么，把它存储为字符串然后吧？

my $referer = "OTHERSITE.potato";
print $referer,"\n";
foreach my $site (@site) {
  my $enter = `curl -s "$site" -H "Referer: https://$referer"`;
}