http://snippets.dzone.com/posts Thu, 24 Jul 2008 04:58:11 GMT DZone Snippets: useragent code http://snippets.dzone.com/posts/show/3163 // Manda le informazioni per il login ad un determinato sito <br /> <br /><code> <br />use HTTP::Request::Common qw(POST); <br />use LWP::UserAgent; <br /> <br />my $user = "user"; <br />my $pass = "pass"; <br /> <br />my $browser = LWP::UserAgent->new(); <br /> <br />my $responde = HTTP::Request->new(POST => "http://www.sito.com/index.php"); <br />$responde->content_type("application/x-www-form-urlencoded"); <br />$responde->content("user=" . $user . "&pass=" . $pass); <br /> <br />$browser->request($responde)->as_string <br /></code> Mon, 18 Dec 2006 23:57:55 GMT http://snippets.dzone.com/posts/show/3163 whitetiger ()