Scott, everything works like I want it to I'm just curious about a couple of parts ->
## i shouldn't do this, should i?
#
open(HTML,">html.txt");
print HTML @html;
close(HTML);
## extract table info from array
#
my $extract = new HTML::TableExtract( headers => ['Date','Numbers'] );
+
my $ts;
my $row;
undef $/;
## help?
#
open(HTML, "html.txt");
my $lotto = <HTML>;
close(HTML);
--JD
| [reply]
[d/l] |
Sorry, I missed your comments in the code.
Well, of course the two short answers are "if it works..."
and "TMTOWTDI". I guess neither of those are what you're looking
for.
In general, there is nothing wrong with what you did. One style
point though: when you open a file, always check that it
completed successfully:
open HTML, ">html.txt" or die "couldn't open html.txt: $!\n";
Writing it to a file is a good idea, at least in development
stages, that way you know what you've got. Would you rather
not write the html file? You could "stringify" @html, if
no other way than with a foreach loop:
foreach my $line (@html) {
$html .= $line;
}
Seem reasonable?
Scott
| [reply]
[d/l]
[select] |
If you want to concatenate all elements of a list, use the function that was made to do exactly so: join.
my $html = join '', @html;
++ vs lbh qrpbqrq guvf hfvat n ge va Crey :)
Nabgure bar vs lbh qvq fb jvgubhg ernqvat n znahny svefg.
-- vs lbh hfrq OFQ pnrfne ;)
- Whreq
| [reply]
[d/l] |
Yeah, thats what I was looking for.
## i shouldn't do this, should i?
#
#open(HTML,">html.txt");
#print HTML @html;
#close(HTML);
my $html;
foreach my $line (@html) {
$html .= $line;
}
## extract table info from array
#
my $extract = new HTML::TableExtract( headers => ['Date','Numbers'] );
my $ts;
my $row;
undef $/;
## help?
#
#open(HTML, "html.txt");
#my $lotto = <HTML>;
#close(HTML);
open(NUMBERS, ">c4_numbers.txt");
## changed $lotto to $html
$extract->parse($html);
foreach $ts ($extract->table_states) {
foreach $row ($ts->rows) {
print NUMBERS join(":", @$row), "\n";
}
}
close(HTML);
close(NUMBERS);
--JD
| [reply]
[d/l] |
