Perlを使用してHTMLページからデータを抽出する方法このWebサイトですべての提案を試みて失敗しました

Question

HTMLページからデータを抽出する方法このWebサイトの提案抽出しますが、何も動作しません。

use HTML::TableExtract; 
use LWP::Simple; 

my $html_string = get('http://www.barchart.com/commodityfutures/Australian_Dollar_Futures/options/A6'); 

$te = HTML::TableExtract->new(headers => [qw(Strike Open High Low Current Change Time  Prem ($))]); 
$te->parse($html_string) or die "Didn't find table"; 

foreach $row ($te->rows) { 
    print join(',', @$row), "\n"; 
} 

が、これは任意のヘルプは、おかげで理解されるであろう動作しませんでした：私は、私が提案ポストを試みた8つの見出しと8つのカラムを持つWebサイトからオプション情報を抽出しようとしています。

use Data::Dumper; 
$a = [qw(Strike Open High Low Current Change Time  Prem ($))]; 
print Dumper($a); 

は、あなたが得る：あなたがしなければ

Answer 1

問題は、彼らが行うようにそれが見えるかもしれません:)列見出しがテーブルにものと一致していないということですが、

$VAR1 = [ 
     'Strike', 
     'Open', 
     'High', 
     'Low', 
     'Current', 
     'Change', 
     'Time', 
     'Prem', 
     '($)' 
    ]; 

最後の2つの列に注意してください。あなたはおそらく必要なのである。一つはPerlを使用して、任意のWebページのHTMLデータを抽出することができ、次のように

$te = HTML::TableExtract->new(headers => [ "Strike", "Open", "High", "Low", 
    "Current", "Change", "Time", "Prem (\$)" ]); 

Answer 2

：

#!perl/bin/perl 
use strict; 
use warnings; 
use LWP::Simple; 

my $URL= "http://urladdress"; 
my $content = get($URL); 
print $content;