Welcome to OStack Knowledge Sharing Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
284 views
in Technique[技术] by (71.8m points)

Perl: Look forward to command that has not run yet

Suppose I have the following bit of code:

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

Would it be possible to print just the referer of the curl command (OTHERSITE.potato) before the foreach function?

I am unsure of how to begin because usually when I want to print something, it has already been stored as a string

Edit: Because some people are not understanding the question, assume $enter cannot be modified. Is there a way to "look forward" to retrieve the contents of $enter before the program even gets there?

See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Answer

0 votes
by (71.8m points)

Well, store it as a string then, right?

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

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome to OStack Knowledge Sharing Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...