只要使用由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很多。 –