如何将变量传递到Perl脚本中的URL?

0 url perl loops

如何将变量传递到Perl脚本中的URL?我试图将数组中的变量传递给url.由于某种原因,它无法正常工作.我不确定我做错了什么.代码大致如下所示:

@coins = qw(Quarter Dime Nickel);

foreach (@coins) {
  my $req = HTTP::Request->new(POST =>'https://url/$coins.com');
 } 
Run Code Online (Sandbox Code Playgroud)

这不起作用,因为$coins不分别切换到Quarter,Dime,Nickel.

我究竟做错了什么?

Sin*_*nür 7

首先,变量不会在单引号字符串中插值:

my $req = HTTP::Request->new(POST => "https://url/$coins.com");
Run Code Online (Sandbox Code Playgroud)

其次,在$coins任何地方都没有定义变量:

foreach my $coin (@coins) {
  my $req = HTTP::Request->new(POST => "https://url/$coin.com");
 }
Run Code Online (Sandbox Code Playgroud)

此外,请务必使用严格警告.

您还应该投入一些时间来正确学习Perl.

  • 另外,将标量值命名为"$ coin",而不是"$ coins". (3认同)