尝试使用 Mojo 和 perl 解析 Finance.yahoo.com

Question

我失败得很惨。我要解析以下网址：

http://finance.yahoo.com/quote/MSFT?ltr=1

并捕捉这三个部分：* 全部 * 新闻 * 新闻稿

这就是我想出的..

#!/bin/perl

use Mojo::UserAgent;
use strict;
use warnings;
use feature 'say';

my $ua_string = "Mozila .. ";
my $url       = "http://finance.yahoo.com/quote/MSFT?p=MSFT";
my $timeout   = "5";

my $ua        = Mojo::UserAgent->new( max_redirects => 5, timeout => $timeout );
$ua->transactor->name($ua_string);

my $content = $ua->get($url)->res->dom->at('#436')->{value};

say $content;

任何帮助将不胜感激..谢谢

Answer 1

您访问 DOM 的方式不正确。

解析部分新闻部分的示例如下：

say $ua->get($url)->res->dom->at('div#quoteNewsStream-0-Stream')->all_text;