Question

这是我得到的一段代码：

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use Time::Piece;
use HTML::Tree;

my $url0 = 'http://www.website.ch/blah.aspx';

my $doc0 = get($url0);

my $tree0 = HTML::Tree->new();
$tree0->parse($doc0);

my @juice = $tree0->look_down(
    _tag => 'option'
);

foreach ( @juice )
{
    print $_->as_HTML, "\n";
}

我知道有更简单的方法可以做到这一点 - 随便谈谈这些方法，但我现在就是这样做的。我想将所有value条目放入一个数组中，所以例如如果我的（我正在调用的）look_down树数组元素之一是以下

<option value="YIDDSH">Yiddish</option>，

然后我想以某种方式将“YIDDSH”（不带引号）推入数组，并从数组中的下一个元素中提取下一个值。

Answer 1

最简单的方法是使用attr方法提取value属性的内容，使用map函数循环遍历所有元素。

my @values = map { $_->attr('value') } @juice;

如何将look_down树数组的HTML标记中的值放入Perl中的常规数组？

1 个答案: