use locale; use strict; use LWP::Simple; # Indication des fichiers d'input et d'output : open (IN, "<", "./PROGRAMMES/input.txt") or die "Impossible d'ouvrir le fichier d'input.\n\n"; open (OUT, ">", "./TABLEAUX/tableau1perl.html") or die "impossible de créer le fichier d'output.\n\n"; # Déclaration des variables : my $nom_de_fichier; my $url; my $num_url; my $num_sous_corpus; my $page_asp; # Mise en place de l'en-tête de la page html : print OUT "\n\n\n
"; while ($nom_de_fichier=){ chomp $nom_de_fichier; open (INBIS, "<", "./URLS-POUR-PERL/$nom_de_fichier") or die "Impossible d'ouvrir le fichier d'input bis.\n\n"; # Création de l'en-tête du tableau. print OUT "\n"; # Début de la boucle 1, traitement du contenu du fichier ligne par ligne : $num_url = 1; while ($url = ){ chomp $url; # Distinction entre les urls et les balises de sous-corpus : if ($url=~/<([^>]+)>/){ print OUT ""; print OUT ""; $num_sous_corpus = 1; } else { print OUT ""; $num_url = $num_url + 1; $num_sous_corpus = $num_sous_corpus+1; # Aspiration des pages : $page_asp = get("$url"); open (FICHIER, ">", "PAGES-ASPIREES/$nom_de_fichier$num_url.html") or die "impossible d'ouvrir FICHIER"; print FICHIER "$page_asp"; if ( not defined( $page_asp ) ){ print OUT ""; } else { print OUT ""; } } } # Fermeture du tableau : print OUT "
Liste URL $nom_de_fichier
",$1,"
nº URLnº URL dans le sous-corpusURL Pages aspirées
", $num_url, "
", $num_sous_corpus , "
URL nº", $num_url , " erreur lors de l'aspiration
page aspirée


"; } # Fin de la page html : print OUT "
"; close (IN); close (INBIS); close (OUT);