Web :: Запрос и извлечение данных

Question

У меня была проблема с извлечением информации с веб-страницы, которая была кем-то решена, но я также хотел бы получить данные из этой структуры и поместить их в обычные строковые переменные, я прокомментировал это и получил указание создатьновый вопрос, вот он!

код:

use Web::Query 'wq';
my $football_matches = wq($mech->content)
    ->find('tr.match')
    ->map(sub {
        my (undef, $e) = @_;
        return 'v' eq $e->find('td.score')->text
            ? [
                $e->attr('id'),
                map { $e->find("td.$_")->text }
                  (qw(tournament dateTime homeTeam score awayTeam prices))
            ]
            : ();
    });
use Data::Dumper; print Dumper $football_matches;

вывод:

$VAR1 = [
    ['tn7gc635476', '', ' Mo 12Mar 2012 ', 'Arsenal',   'v', 'Newcastle', '  '],
    ['tn7gc649937', '', ' Tu 13Mar 2012 ', 'Liverpool', 'v', 'Everton',   '  '],
    ['tn7gc635681', '', ' Sa 17Mar 2012 ', 'Fulham',    'v', 'Swansea',   '  '],
    ['tn7gc635661', '', ' Sa 17Mar 2012 ', 'Wigan',     'v', 'West Brom', '  '],
    ['tn7gc635749', '', ' Su 18Mar 2012 ', 'Wolves',    'v', 'Man Utd',   '  '],
    ['tn7gc635556', '', ' Su 18Mar 2012 ', 'Newcastle', 'v', 'Norwich',   '  ']
];

Что я хотел бы сделать, это взять каждую дату, домашняя командаи выезжаем за пределы команды и помещаем их в обычные переменные / массивы.

Заранее спасибо!

Answer 1

Вы можете проверить perldsc и perlref . Ищите массивы частей массивов и arrayref