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

Marsh Posté le 07-03-2003 à 02:53:08

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

Reply

Marsh Posté le 07-03-2003 à 02:53:08

Reply

Marsh Posté le 07-03-2003 à 09:31:52

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

Reply

Marsh Posté le 07-03-2003 à 09:33:18

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??? :??:

Reply

Marsh Posté le 07-03-2003 à 10:55:25

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

Reply

Marsh Posté le 07-03-2003 à 11:45:37

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

Reply

Marsh Posté le 07-03-2003 à 11:47:17

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

Reply

Marsh Posté le 07-03-2003 à 20:58:50

up!

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

Reply

Marsh Posté le 08-03-2003 à 11:20:16

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

Reply

Marsh Posté le 08-03-2003 à 11:22:16

ok merci, je vais essayer tout ça

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

Reply

Marsh Posté le 08-03-2003 à 11:25:21

j'ai edité yavait une erreur

Reply

Marsh Posté le 08-03-2003 à 11:25:21

Reply

Marsh Posté le 08-03-2003 à 11:29:13

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

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

Reply

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

Sujets relatifs:

Leave a Replay