只要使用由Mojo::UserAgent返回Mojo::DOM:
#!/usr/bin/env perl
use strict;
use warnings;
use v5.10;
use Mojo::UserAgent;
my $url = "http://finance.yahoo.com/quote/MSFT?p=MSFT";
my $dom = Mojo::UserAgent->new->get($url)->res->dom;
my $stream = $dom->at('div#quoteNewsStream-0-Stream');
for my $href ($stream->find('a')->each) {
say $href->{href};
}
输出:
/news/jeff-bezos-trump-tech-summit-was-very-productive-224326329.html
/news/jeff-bezos-trump-tech-summit-was-very-productive-224326329.html
/news/donald-trump-tech-summit-at-trump-tower-202517070.html
/video/microsoft-surface-sales-surge-disappointment-181934121.html
/news/jeff-bezos-trump-tech-summit-was-very-productive-224326329.html
/news/microsoft-surface-sales-surge-on-disappointment-with-macbook-pro-163819168.html
/news/microsoft-surface-sales-surge-on-disappointment-with-macbook-pro-163819168.html
/m/7f581deb-0089-341a-b637-e1e979e9e210/ss_5-point-checklist-for.html
有关使用这些工具的8分钟教程,请Mojocast Episode 5
感谢您关于检查Mojocast的建议。非常感谢ty很多。 –