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

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+