LWP probleme upload fichier - Perl - Programmation
Marsh Posté le 26-12-2005 à 09:48:31
Ce matin , tout marchait mieux ...
Pour ceux que ca intéresse et qui trouvent l'erreur dans le script précédent, merci tout de même de m'expliquer
Voila mon script qui marche:
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;
$ua = new LWP::UserAgent;
my $url = "http://192.168.55.22/upload.php";
my $fichier ="tester\.txt";
$req = POST $url,
Content_Type => 'form-data',
Content => [
file1 => [$fichier, $fichier],
];
my $stuff = $ua->request($req)->as_string;
print $stuff;
A+
Marsh Posté le 25-12-2005 à 18:52:58
Bonjour à tous,
Je souhaite uploader un fichier sur un formulaire php en perl avec LWP
Lorsque je le fais avec Mozilla Firefox ou Internet explorer pas de problème.
Mais avec mon script rien à faire
Voila ce que j'ai dans mes logs d'apache2 :
192.168.0.1 "POST upload.php" HTTP/1.1" 200 304
le code 304 semble prévenir d'un probleme de cache mais je n'utilise pas de proxy rien..
Mon script:
#!/usr/bin/perl
use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $url = "http://192.168.55.22/upload.php";
my $hostname=`hostname`;
chomp($hostname);
my $file="$hostname\.log";
my $res = $ua->post( $url,
Content_Type => 'form-data',
Content => [
file1 => [$file, $file],
],
);
my $stuff = $res->content;
print $stuff;
PS/ je suis sous windows avec active perl.
Thx