Perl

[perl]programme...

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [perl]programme...

cron55

voilà,
j'ai une question.
je suis pas informaticien, mais je voudrais résoudre un problème de poétique avec perl.
quelle forme aurait un petit programme qui repère les consonnes majoritaires d'un vers d'un texte ?
merci de votre aide !!

Message édité par cron55 le 31-01-2006 à 01:13:29

Publicité

pospos

en gros tu lui donne un texte en francais et il te dit quelles sont les consonnes les plus frequentes?

ca ressemblerais à ca:

Code :

use strict;
use warnings;
my $text = "quand je vois fernande, je bande";
my %compteur;
$text =~ s/([zrtpqsdfghjklmwxcvbn])/++$compteur{lc $1}/ige;
for my $consonne (sort {$compteur{$b} <=> $compteur{$a}} keys %compteur) {
print "$consonne : $compteur{$consonne}\n";
}

cron55

en fait, je pensais plutot à un .txt qu'on demande au prog d'ouvrir lui même ; en utilisantje crois "chop" et tout et tout...

pospos

Code :

use strict;
use warnings;
my $fichier = shift || die "donne moi un fichier en parametre cron !";
open(A, '<', $fichier) || die "je peux pas l'ouvrire ton fichier cron !";
my $text = do{local $/; <A>};
my %compteur;
$text =~ s/([zrtpqsdfghjklmwxcvbn])/++$compteur{lc $1}/ige;
for my $consonne (sort {$compteur{$b} <=> $compteur{$a}} keys %compteur) {
print "$consonne : $compteur{$consonne}\n";
}

cron55

merci beaucoup !!
(je t'ai répondu en MP)

FORUM HardWare.fr

Programmation

Perl

[perl]programme...

Sujets relatifs
lancer un programme sous une session differente	[C] Probleme dans un programme de cryptage
[Résolu]pb d'execution de programme	[Perl] Debugguer à distance ?
Programme perl ou php sur un port précis	[Perl] Arrêter un programme proprement lors d'un Ctrl + C
perl - protéger un programme contre les plantages ?	Programme en perl !
[PERL] execution de programme externe	Programme en Perl qui peut compresser les données d'un répertoire ?
Plus de sujets relatifs à : [perl]programme...

Page générée en 0.047 secondes