Problèmes en Perl
Solange
-
SonyBlack -
SonyBlack -
Bonjour,
Je ne sais pas comment écrire 1 algorithme en Perl quelqu'un pourrait m'aider?
Par exemple à partir de ça :
-Prendre en entrée 1 chemin vers 1 répertoire qui contient des fichiers HTML,
-Extraire de chaque fichier les mots-clés, le titre et le texte
-Stocker les infos extraites dans 1 fichier => 1 ligne = les infos sur 1 fichier
Merci d'avance pr votre aide.
Je ne sais pas comment écrire 1 algorithme en Perl quelqu'un pourrait m'aider?
Par exemple à partir de ça :
-Prendre en entrée 1 chemin vers 1 répertoire qui contient des fichiers HTML,
-Extraire de chaque fichier les mots-clés, le titre et le texte
-Stocker les infos extraites dans 1 fichier => 1 ligne = les infos sur 1 fichier
Merci d'avance pr votre aide.
A voir également:
- Problèmes en Perl
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- DzSoft Perl Editor - Télécharger - Édition & Programmation
- Execution d'un fichier.txt avec perl - Forum Perl
- Comment lire un fichier .pl perl ? - Forum Windows
1 réponse
Pas très compliqué si tu veux le faire à l'arrache.
Essaye un truc dans ce genre :
################################################"
use strict;
use warnings;
open(FICHIERIN, "xxx.html");
open(FICHIEROUT, "<", "xxx.txt");
my $ligne = undef;
my $title = "<TITLE> * </TITLE>;
foreach $title (FICHIERIN);
{
if ($ligne eq $title){
print FICHIEROUT "$ligne"
}
}
close(FICHIEROUT);
close(FICHIERIN);
################################################
Essaye un truc dans ce genre :
################################################"
use strict;
use warnings;
open(FICHIERIN, "xxx.html");
open(FICHIEROUT, "<", "xxx.txt");
my $ligne = undef;
my $title = "<TITLE> * </TITLE>;
foreach $title (FICHIERIN);
{
if ($ligne eq $title){
print FICHIEROUT "$ligne"
}
}
close(FICHIEROUT);
close(FICHIERIN);
################################################