Problème avec ouverture de fichier

Bonjour à tous.

Voila je veut enregistrer le contenu de plusieurs url contenu dans un fichier texte.

Peut-être qu'avec le script vous comprendrez mieux :P

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

#!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use HTTP::Cookies;   my $browser = LWP::UserAgent->new( agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)', cookie_jar => HTTP::Cookies->new( file => 'c:\wawamania.txt', autosave => 1) ); my $response;       open F_LIRE,"liens.txt" or die "E/S : $!\n";   while(<F_LIRE>){ while(/<url>(.*)<\/url><titre>(.*)<\/titre>/g){     $response = $browser->get("$1"); if ($response->is_success) { my $plaintext = $response->content; open my $filehandle, ">>", "$1.html" or die "Problème lors de l'ouverture du fichier :$!\n"; printf $filehandle "$plaintext";   }     }#temps que le regex marche }# temps qu'on lie le fichier close F_LIRE;

---

Et voici ce que l'erreur que j'ai depuis ma console windows :

Citation:

---

C:\Users\MorGan\Desktop>files.pl
ProblÞme lors de l'ouverture du fichier :Invalid argument

---

je ne comprend vraiment pas d'ou vient l'erreur. Si vous pouviez m'aider ça serais généreux de votre part !

Le mieux serait que tu test ton fichier avant de faire quoi que ce soit.
Utilise if (-w $dossier) ... pour voir si le dossier qui le contient est en écriture, etc etc.
Il y a plein de tests à faire comme celui ci.
Et affiche un message dans ton ELSE.
Tu verras vite ce qui foire !

Courage

pouf !
http://www.cs.cf.ac.uk/Dave/PERL/node69.html

Merci pour votre réponse rapide.

Mais lorsque je fait

Code:

---

1 2 3 4 5 6

if ($response->is_success) { print $1;   }

---

le code fonctionne correctement. Ensuite je n'es pas vraiment compris ce que vouliez dire par les droit d'écriture. Normalement je suis censé les avoir ? car je veut que mon script créer une page pour chaque URL.

Si vous pouviez m'éclairer ça serais aimable.

Malheureusement, je ne sais pas si sous Windows, vous avez les droits d'écriture sur le bureau.
Le problème est que le script n'est pas forcément exécuté avec les droits de votre utilisateur.
Essayez dans un autre répertoire dans vos documents avec les droits maximums.

Enfin ce ne sont que des pistes, je ne connais pas bien Windows du tout

Pourtant via un autre script perl je suis arriver à créer "liens.txt" sans aucun soucis ...

EDIT : j'ai essayé depuis divers répertoire mais le résultat est toujours le même !!

Je vais hasarder la suggestion qu'il y a des espaces dans $1... ou autre problème du genre.

Par ailleurs ton indentation est complètement fantaisiste et tu passes d'un GLOB comme F_LIRE à un handle lexical, ce qui m'amène à penser que tu fais un usage un peu abusif du copier coller...

Est-ce que tu as vraiment besoin de ta boite à cookie par exemple ? Tu l'as rempli de cookies personnel auparavant ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

#!/usr/bin/perl use strict; use warnings; use LWP::Simple qw/$ua/;   $ua->agent('Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)');   open my($links), '<', "liens.txt" or die "Can't open liens.txt : $!\n";   while(<$links>) { while(m{<url>\s*(\S*)\s*</url><titre>(.*)</titre>}g){ my ($url, $title) = ($1, $2);   if( my ($filename) = ($url =~ m{([^/\\]+)$}) ) { getstore($1, $filename); } else { (my $filename = $title) =~ tr{ !?*/\\}{_}d; getstore($1, "$filename.html"); } } }   close $links;   __END__

---

--
Jedaï

Hello.

Effectivement j'ai copier/coller F_LIRE car je n'arrivais à y arriver par moi même.

Sinon le cookies est vraiment important !
Sinon en effet vous aviez raison, l'erreur venais de $1 qui contenais des caractères spéciaux !

merci beaucoup pour votre aide !