in reply to web page source?
#!/usr/bin/perl use LWP::Simple qw(get); sub Get_Page { my ($url,%option) = @_ ; ## INTRODUCE LOGIN AND PASS IF IT'S PRECISED if (exists($option{login})) { $url =~ s/http:\/\///si; $url = + "http://$option{'login'}:$option{'pass'}\@$url"; } return get($url); } ## THE URL YOU WANT THE SOURCE CODE my $url = ‘http://www.pipo.com/index.html’; ## THE CALL OF KTHULU my $contenu = Get_Page("http://anon.free.anonymizer.com/$url"); ## PRINT THE SOURCE CODE print $contenu;
|
|---|