1 occurrence de mot en PERL
Résolu/Fermé
eccomi
Messages postés
13
Date d'inscription
dimanche 9 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2009
-
9 déc. 2007 à 15:38
eccomi Messages postés 13 Date d'inscription dimanche 9 décembre 2007 Statut Membre Dernière intervention 5 janvier 2009 - 9 déc. 2007 à 16:16
eccomi Messages postés 13 Date d'inscription dimanche 9 décembre 2007 Statut Membre Dernière intervention 5 janvier 2009 - 9 déc. 2007 à 16:16
A voir également:
- 1 occurrence de mot en PERL
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Mot de passe administrateur freebox ✓ - Forum Freebox
- Piratage facebook changer mot de passe - Guide
- Supprimer mot de passe windows 10 - Guide
2 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 566
9 déc. 2007 à 16:07
9 déc. 2007 à 16:07
Salut,
#!/usr/bin/perl
use strict;use warnings;
open LIRE,"texte.txt"
or die "E/S : $!\n";
my (@texte,%h);
while(<LIRE>){
push @texte,$_ =~ /([^-:\s=(),'?.]+)/g;
}
my @mot_unique = grep { ! $h{$_}++ } @texte;
print "$_\n" foreach sort @mot_unique;
__END__
eccomi
Messages postés
13
Date d'inscription
dimanche 9 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2009
9 déc. 2007 à 16:16
9 déc. 2007 à 16:16
C'est...magnifique.
Merci beaucoup. J'ai testé, mais j'ai pas encore tout décrypté!
Merci beaucoup. J'ai testé, mais j'ai pas encore tout décrypté!