in reply to HTML HELP
That prints Number of lines: 1. You probably need a split in there to make a real array, or else some other kind of regular expression to pull out your stats:my @html=get("http://setiathome.ssl.berkeley.edu/stats/team/team_2414. +html"); print "Number of lines: ", scalar(@html), "\n";
Hardly beautiful, but the results speak for themselves:#!/usr/bin/perl -w use strict; use LWP::Simple; my $line = get("http://setiathome.ssl.berkeley.edu/stats/team/team_241 +4.html"); $line =~ s/\cM//g; $line =~ s/<(br|p)>/\n\n/ig; $line =~ s/<(?:[^>'"]*|(['"]).*?\1)*>//gs; if ($line =~ m/(\d+\)\sHelmet\s\d+\s+([\d.]+\s\w+\s){5})/) { print $1; } else { print "Not found\n"; }
That said, there are HTML parsing modules available on CPAN, especially ones dealing with tables. I would prefer that than dealing with the regex.4) Helmet 119 1890 hr 58 min 15 hr 53 min 25.8 sec
|
---|