update: I notice that demerphq has done this already... as has crazyinsomniac.§#!/usr/bin/perl -w use strict; use CGI qw(:standard :cgi-lib); use LWP::Simple; my $url = "http://perlmonks.org/index.pl?node_id=110166"; my $html = get $url or die "could not get $!"; my %names; while ($html =~ s/=(\d*?)&lastnode_id=110166">[^<]*<\/A><BR> by <A HRE +F="\/index\.pl\?node_id=\d*&lastnode_id=110166">(.*?)<\/A> on \w{3} \ +d{2}, \d{4} at \d{2}:\d{2}//s) { $names{$2} = $1 unless $names{$2}; }
In reply to Re: Re: Name Space
by George_Sherston
in thread Name Space
by George_Sherston
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |