[EMAIL PROTECTED] wrote:
Bonjour,
j'aimerais faire un petit script perl qui commande une page web;
or �a marche pas...
J'avais le m�me "probl�me" il y a une ann�e. Voil� qqs bouts de code qui
pourraient �tre utile. Mais attention, c'est du bricollage. J'ai pas
trouv� de moyen correcte pour d�terminer quand la page est enti�rement
arriv�... �a marche, mais c'est pas propre.
-----------8><--------
#!/usr/bin/perl
use Net::Telnet;
sub getPage {
my ($host, $request) = @_;
my $telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die');
$telnet->open('Host'=>$host,'Port'=>80);
$telnet->print($request);
my $page = "";
while (my $data = $telnet->get(Timeout=>2, Errmode=>'return')) {
$page .= $data;
if ($data =~ /<\/html>/i) {
break;
}
}
$telnet->close();
return $page;
}
_______________________________________________
gull mailing list
[email protected]
http://lists.alphanet.ch/mailman/listinfo/gull
