Perl
- 1 ответ
- 0 вопросов
1
Вклад в тег
#!/usr/bin/env perl
use Mojo::Base -strict;
use Mojo::UserAgent;
my $uri = 'http://efremova.info/word/slovar.html';
my $sel = 'td#centerCnt ol li';
my $ua = Mojo::UserAgent->new();
my $text = $ua->get($uri)->res->dom->at($sel)->text;