这里是一个愚蠢的问题。我是 Perl 的新手,正在尝试使用 HTML: TableExtract 在线提取一些数据。我从网页上获得了数字,但不知道如何将它们打印到 txt 文件中。我试图打开一个文件但没有成功。这是我使用的代码。谢谢。
#!/usr/bin/perl
use Encode qw(decode);
use Encode;
use Encode::HanExtra;
use Encode::HanConvert;
use strict;
use warnings;
chdir("C:/perlfiles/test") || die "cannot cd ($!)";
my $file = "tokyo.html";
use HTML::TableExtract;
open my $outfile, '>', "tokyo.txt" or die 'Unable to create file';
my $label = 'by headers';
my $te = HTML::TableExtract->new(headers => [qw(number city)]);
$te->parse_file($file);
foreach my $ts ($te->tables) {
print "Table (", join(',', $ts->coords), "):\n";
foreach my $row ($ts->rows) {
print $outfile join(",", @$row),"\n";
}
}
close $outfile;
怎么了?谢谢。