Как поместить значения из HTML-тега массива look_down в обычный массив в Perl?

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 атрибут, и функция карты, чтобы зациклить все элементы.

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