Perl 将打印保存为变量

Question

我有一个命令

print $_->{href} . "\n" for $mech->find_link_dom(text_regex => qr/pdf/i);

可以打印出我想保存为变量的确切链接。尽管当我尝试这样做时却

my $link = $_->{href} . "\n" for $mech->find_link_dom(text_regex => qr/pdf/i);

不起作用。

有什么想法吗？

Answer 1

如果您知道 $mech->find_link_dom(text_regex => qr/pdf/i) 仅返回一个元素，那么您可以这样写：

my $link = [$mech->find_link_dom(text_regex => qr/pdf/i)]->[0]->{href} . "\n";

如果它可以返回多个元素 - 或零个元素 - 那么也许你的意思是这样的：

my $link;
$link .= $_->{href} . "\n" for $mech->find_link_dom(text_regex => qr/pdf/i);

Answer 2

您的第一个代码片段相当于：

for $_ ($mech->find_link_dom(text_regex => qr/pdf/i)) {
    print $_->{href} . "\n"
}

第二个代码片段相当于：

for $_ ($mech->find_link_dom(text_regex => qr/pdf/i)) {
    my $link = $_->{href} . "\n";
}

因此，$link 变量是 for 块的本地变量，并且在该块之外不可见。如果您首先在块之外声明变量，它将起作用：

my $link;

for $_ ($mech->find_link_dom(text_regex => qr/pdf/i)) {
    $link = $_->{href} . "\n";
}

或者，使用代码中的简短形式：

my $link;

$link = $_->{href} . "\n" for $mech->find_link_dom(text_regex => qr/pdf/i);