Perl
explication
-
explicaiont Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
explicaiont Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je suis débutante en perl et je dois créer un fichier texte puis indexé son contenu en récupérant que les mots significatif et leurs nombre d'apparition puis construire le fichier inverse depuis le fichier d'index svp qlq pour m aidé
je suis débutante en perl et je dois créer un fichier texte puis indexé son contenu en récupérant que les mots significatif et leurs nombre d'apparition puis construire le fichier inverse depuis le fichier d'index svp qlq pour m aidé
A voir également:
- Perl
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- DzSoft Perl Editor - Télécharger - Édition & Programmation
- Comment lire un fichier .pl perl ? - Forum Windows
- Perl: transformer un fichier en package ✓ - Forum Perl
4 réponses
bonjour, svp j'ai créer un fichier.txt ds le dossier ou se trouve mes programme et je veux savoir est ce q je peux y accéder a son contenu a partir d'un programme??
j'ai essayé de tester le code suivant:
#!/usr/bin/perl
use strict;use warnings;
my @tmp;
open LIRE, 'fiche.txt'
or die "Impossible Ouverture Fichier : $!\n";
while(<LIRE>){
push @tmp,$_ if /^tata;ta/; # en supposant que tu as plusieurs lignes
}
print "$_\n" foreach @tmp;
j'attend votre réponse avec impatience!
j'ai essayé de tester le code suivant:
#!/usr/bin/perl
use strict;use warnings;
my @tmp;
open LIRE, 'fiche.txt'
or die "Impossible Ouverture Fichier : $!\n";
while(<LIRE>){
push @tmp,$_ if /^tata;ta/; # en supposant que tu as plusieurs lignes
}
print "$_\n" foreach @tmp;
j'attend votre réponse avec impatience!
Salut,
Pour répondre à ta première question, oui on peut accéder à un fichier.txt depuis un programme.
Ce qui est important c'est de savoir le contenu de ton fichier et aussi ce que tu veux obtenir comme résultat.
Exemple.
Supposons que j'ai le fichier suivant (le nom de fichier est plop)
explicaiont est un membre CCM
lami20j aussi est un membre CCM
Le résultat voulu étant de mettre la lettre de début de chaque mot en majuscules et écrire le résultat dans le fichier plop_resultat
J'attends des infos pour pouvoir t'aider.
Pour répondre à ta première question, oui on peut accéder à un fichier.txt depuis un programme.
Ce qui est important c'est de savoir le contenu de ton fichier et aussi ce que tu veux obtenir comme résultat.
Exemple.
Supposons que j'ai le fichier suivant (le nom de fichier est plop)
explicaiont est un membre CCM
lami20j aussi est un membre CCM
Le résultat voulu étant de mettre la lettre de début de chaque mot en majuscules et écrire le résultat dans le fichier plop_resultat
:~$ cat plop
explicaiont est un membre CCM
lami20j aussi est un membre CCM
:~$ cat plop.pl
#!/usr/bin/perl
use strict;use warnings;
open LIRE, "plop" or die "E/S : $!\n";
open ECRIRE, "> plop_resultat" or die "E/S : $!\n";
while(<LIRE>){
s/\b(.)/\u$1/g;
print ECRIRE;
}
__END__
:~$ cat plop_resultat
cat: plop_resultat: Aucun fichier ou dossier de ce type
:~$ perl plop.pl
:~$ cat plop_resultat
Explicaiont Est Un Membre CCM
Lami20j Aussi Est Un Membre CCM
:~$
J'attends des infos pour pouvoir t'aider.
slt non ça marche pas! moi j'ai creer un fiche.txt comme on crée les bloc note btn droit --nouveau... et puis je veux afficher son contenu a l'exécution parcq aprés je dois pouvoir récupérer juste les mots significatif et je pense que c'est ce qu'il faut faire comme début
le probléme c'est que j'essaie d'apprendre en méme temp la syntaxe de perl
merci
le probléme c'est que j'essaie d'apprendre en méme temp la syntaxe de perl
merci
#!/usr/bin/perl
use strict;use warnings;
open LIRE, 'C:\Users\Microbox\Desktop\index\fiche.txt'
or die "Impossible Ouverture Fichier : $!\n";
while(<LIRE>){
$n = $.;
}
print "Le fichier à $n lignes\n";
voila il m'affiche le code
use strict;use warnings;
open LIRE, 'C:\Users\Microbox\Desktop\index\fiche.txt'
or die "Impossible Ouverture Fichier : $!\n";
while(<LIRE>){
$n = $.;
}
print "Le fichier à $n lignes\n";
voila il m'affiche le code
voila il m'affiche le code
C'est normal, c'est le but de la commande type
Ok, c'est ma faute ;-)
Le message d'erreur dit que $n n'est pas déclaré avec my, et dans ton cas c'est variable dont la portée ne dépasse pas le bloc while
Pour corriger ça il suffit de la déclarer ensuite exécuter le script.
C'est normal, c'est le but de la commande type
Ok, c'est ma faute ;-)
Le message d'erreur dit que $n n'est pas déclaré avec my, et dans ton cas c'est variable dont la portée ne dépasse pas le bloc while
Pour corriger ça il suffit de la déclarer ensuite exécuter le script.
#!/usr/bin/perl
use strict;use warnings;
my $n;
open LIRE, 'C:\Users\Microbox\Desktop\index\fiche.txt'
or die "Impossible Ouverture Fichier : $!\n";
while(<LIRE>){
$n = $.;
}
print "Le fichier à $n lignes\n";
#!/usr/bin/perl
use strict;use warnings;
my $n;
open LIRE, 'C:\Users\Microbox\Desktop\index\fichier.txt'
or die "Impossible Ouverture Fichier : $!\n";
while(<LIRE>){
$n = $.;
}
print "Le fichier à $n lignes\n";
j ai renomer en fichier.txt sachant qu'il est dans le répértoire du script mais il l'ouvre pas!
use strict;use warnings;
my $n;
open LIRE, 'C:\Users\Microbox\Desktop\index\fichier.txt'
or die "Impossible Ouverture Fichier : $!\n";
while(<LIRE>){
$n = $.;
}
print "Le fichier à $n lignes\n";
j ai renomer en fichier.txt sachant qu'il est dans le répértoire du script mais il l'ouvre pas!