Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

BigRare's scratchpad

by BigRare (Pilgrim)
on Sep 23, 2004 at 06:42 UTC ( #393136=scratchpad: print w/replies, xml ) Need Help??

#!/usr/bin/perl -w use strict; use WWW::Mechanize; use HTML::TokeParser; my $agent = WWW::Mechanize->new(); $agent->redirect_ok(); my @url = @_; my @result; foreach(@url){ check($_); push @result => $status; } sub check{ $agent->agent_alias("Windows IE 6"); $agent->get($url); my $loc = $agent->base(); my $status = $agent->status(); } ___END___
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2022-12-05 15:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?