====== Perl: Gerer le web ======

==== Recuperer une page Web avec des parametres en Post====

<cmd>
#!/usr/bin/perl

use LWP::UserAgent;
my $ua = new LWP::UserAgent;

$ua->proxy(['http','ftp'],'http://wtd.ime.sancompany.com/');
my $response= $ua->post('http://www.sanothercompany.com/getDayMatchLog.php', { year=> '2008', match=>'12'});

print $response;

my $content = $response->content; 
print $content;

</cmd>