#!/usr/bin/perl use LWP; use strict; use warnings; my $ua = new LWP::UserAgent; print "\n\nUsing LWP to grap http://groups.yahoo.com.\n". "Printing first 500 characters.\n"; my $r = $ua->get("http://groups.yahoo.com"); ${$r->content_ref} =~ s/ /./g; ${$r->content_ref} =~ s/\cJ/<>\cJ/g; print substr($r->content,0,500), "\n"; print "\n\nUsing previously-saved Mozilla groups.yahoo.com source.\n". "Print first 500 characters.\n"; open FH, "groups.yahoo.com.html"; undef $/; my $s = ; $s =~ s/ /./g; $s =~ s/\cJ/<>\cJ/g; print substr($s,0,500), "\n"; #### Using LWP to grap http://groups.yahoo.com. Printing first 500 characters. <> <> <> <> <> <> <<L Using previously-saved Mozilla groups.yahoo.com source. Print first 500 characters. <<LF>> <<LF>> <HTML><<LF>> <<LF>> <HEAD><<LF>> <<LF>> ........<<LF>> ........<META.http-equiv="PICS-Label".content='(PICS-1.1."http://www.icra.org/ratingsv02.html".l.gen.true.for."http://groups.yahoo.com".r.(nz.0.vz.0.lz.0.oz.0.ca.1))'><<LF>> ..<<LF>> ......<META.content="free.email.groups,.mailing.lists,.communities,.majordomo,.e-mail,.bounce.handling,.mlm.software,.listserv,.Yahoo!.Groups,.newletters,.announcement,.email.lists,.list.hosting".name=keywords><<LF>> ....<META.content="Yahoo!.Group ##</code><code>## @_="the journeyman larry disciple keeps learning\n"=~/(.)/gs, print(map$_[$_-77],unpack(q=c*=,q@QSdM[]uRMNV^[ni_\[N]eki^y@))