Perl：期待尚未运行的命令

Question

假设我有以下代码：

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

是否可以在 foreach 函数之前仅打印 curl 命令 (OTHERSITE.potato) 的 referer？

我不确定如何开始，因为通常当我想打印一些东西时，它已经被存储为一个字符串

编辑：因为有些人不理解问题，假设$enter不能修改。有没有办法 "look forward" 在程序到达之前检索 $enter 的内容？

Answer 1

那么，将其存储为字符串，对吗？

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

Perl: Look forward to command that has not run yet