Bonjour je cherche de l'aide concernant ce script:
Je voudrais savoir si il y avais possibilité d ele rendre plus rapide (car la c extremement lent)
<script language="perlscript" runat="server">
use LWP::UserAgent; # librairie client HTTP
# function ErrorRepport(errMsg)
# fonction de gestion des erreurs
sub ErrorReport {
my ($errMsg) = @_;
$Response->Write($errMsg);
$Response->end;
}
# function geturl(myrul)
# il s'agit de la fonction principale qui permet d'éxecuter votre requête HTTP de type get
sub geturl {
my ($myurl) = @_; # récupère dans la variable $myurl l'url passée en paramètre de l'appel de la fonction geturl
my $returnString=""; # initialise la variable de retour à vide
$ua = new LWP::UserAgent or die ErrorReport("Impossible de créer le client"); # création du client HTTP
$ua->agent("$0/0.1 " . $ua->agent); # déclaration de l'agent utilisateur
$ua->agent("Mozilla/8.0"); # déclaration d'un agent utilisateur particulierement evolué de type Mozilla
$req = new HTTP::Request 'GET' => "$myurl"; # éxecute la requête HTTP en get
$req->header('Accept' => '*/*'); # defini le format de l'entête
$res = $ua->request($req); # affecte le resultat de la requête http dans la variable $res
if ($res->is_success) {
# le résultat est correct
$returnString.=$res->content;
}
else {
# il y a une erreur
ErrorReport("Impossible de récuperer l'URL spécifiée");
}
$returnString; # renvoie le résultat sous forme de chaîne de caractère
}
</script>