Perl

Méthode GET sans LWP::Simple [résolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Méthode GET sans LWP::Simple [résolu]

monsieur tomate

Je voudrais faire une méthode GET (pour exécuter un fichier à distance donc), sans utiliser la librairie LWP::Simple qui n'est pas disponible sur mon server. Quelle est la fonction qui remplace cette librairie ?

Message édité par monsieur tomate le 08-03-2003 à 14:05:05

---------------
HardGamers.org

Publicité

arghbis

salops de dauphins

aucune, tu es obligé d'utiliser unmodule perl.

arghbis

salops de dauphins

heu attends, je comprends pas : si c pour exécuter une méthode à distance, ça veut dire que tu lance ton script perl depuis ton pc => qu'est-ce qui t'empêche d'installer LWP??? :??:

monsieur tomate

non, tu peux le faire avec un serveur, avec

Code :

use LWP::Simple

au début du fichier
je le sais paske si je ne le fais pas, ça plante...

---------------
HardGamers.org

arghbis

salops de dauphins

oui, c ce que je dit! tu utilise le module perl LWP::Simple! :pt1cable:

monsieur tomate

je répondais à
"si c pour exécuter une méthode à distance, ça veut dire que tu lance ton script perl depuis ton pc => qu'est-ce qui t'empêche d'installer LWP??? "

le module a été créé en Perl, il doit bien y avoir une astuce (genre un HTTP::request ou une merde du genre, non ?)

---------------
HardGamers.org

monsieur tomate

up!

---------------
HardGamers.org

pospos

ya d'autres modules que tu peu utiliser, souvent plus legers que lwp.

ya HTTP::Lite et HTTP::MHTTP, et si t'es sous windows tu peux par exemple utiliser win32::Internet

Sinon tu peu aussi te faire une petit focntion à la main avec des sockets. Par exemple en s'inspirant simplement de la fonction get de lwp::Simple:

Code :

print get("http://www.google.fr/" );
sub get {
my $url = shift;
my ($host, $port, $path) = $url =~ m,^http://([^/:\@]+)(?::(\d+))?(/\S*)?$,;
$port ||= 80;
$path ||= "/";
require IO::Socket;
local($^W) = 0;
my $sock = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => 60) || return undef;
$sock->autoflush;
my $netloc = $host;
$netloc .= ":$port" if $port != 80;
print $sock join("\015\012" =>
"GET $path HTTP/1.0",
"Host: $netloc",
"User-Agent: Monsieur Tomate Navigator/5.0",
"", "" );
my $buf = "";
my $n;
1 while $n = sysread($sock, $buf, 8*1024, length($buf));
return undef unless defined($n);
if ($buf =~ m,^HTTP/\d+\.\d+\s+(\d+)[^\012]*\012,) {
my $code = $1;
#print "CODE=$code\n$buf\n";
if ($code =~ /^30[1237]/ && $buf =~ /\012Location:\s*(\S+)/) {
# redirect
my $url = $1;
return undef if $loop_check{$url}++;
return _get($url, $host, $port, $path);
}
return undef unless $code =~ /^2/;
$buf =~ s/.+?\015?\012\015?\012//s; # zap header
}
return $buf;
}

Message édité par pospos le 08-03-2003 à 11:41:34

monsieur tomate

ok merci, je vais essayer tout ça

---------------
HardGamers.org

pospos

j'ai edité yavait une erreur

Publicité

monsieur tomate

arf, le temps que tu édites, j'étais déjà en train d'éditeur les erreurs. super ça marche ! merci !!

---------------
HardGamers.org

FORUM HardWare.fr

Programmation

Perl

Méthode GET sans LWP::Simple [résolu]

Sujets relatifs
Upload de fichier SQL de 12 Mo avec PHPMyAdmin [résolu]	[java][Applet] Placer les composant où l'on souhaite [Resolu]
jeu de la vie en java, nouveau probleme avec une methode	MySQL, jointure qui fait planter MySQL .... [RESOLU]
[Résolu] [POO] Design-Patterns, Modèle Vue Contrôleur...	[RESOLU] [Access] Création d'un formulaire de consultation
lire un fichier en commençant par la fin [résolu]	MySQL: comment faire pour éviter des lignes en doublons [RESOLU]
PostgreSQLProblème de démarrage [ RESOLU]	[c++] obtenir le nom d utilisateur du pc [RESOLU]
Plus de sujets relatifs à : Méthode GET sans LWP::Simple [résolu]

Page générée en 0.080 secondes