![]() |
|
Perl Monk, Perl Meditation | |
PerlMonks |
Grab a node from e2by nashdj (Friar) |
on May 24, 2000 at 16:41 UTC ( [id://14541]=perlcraft: print w/replies, xml ) | Need Help?? |
1: #!/usr/bin/perl 2: #Grabs a node from e2. It's not perfect, but it does the job most of the time. 3: use LWP::Simple; 4: my $page = get "http://everything2.com/index.pl?node=$ARGV[0]"; 5: if (!(($page =~ /findings:/i) || ($page =~ /nothing found/i) || ($page =~ /was last logged in:/i))) 6: { 7: $page =~ s/\n|\r//g; 8: $page =~ s/<!-- TABLE #2\.1 Ends here -->.*|^.* utc|<.*?>//g; 9: $page =~ s/ +/ /g; 10: print $page; 11: }
Back to
Craft
|
|