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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 :

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 !