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
- Trousseau mot de passe iphone - Guide
- Voir mot de passe wifi android - Guide
- Mot de passe - Guide
- Mot de passe administrateur - Guide
- Identifiant et mot de passe - 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 569
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é!