[perl]programme...

programme... [perl] - Perl - Programmation

Marsh Posté le 31-01-2006 à 01:11:46    

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
Reply

Marsh Posté le 31-01-2006 à 01:11:46   

Reply

Marsh Posté le 31-01-2006 à 09:26:24    

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

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

Reply

Marsh Posté le 31-01-2006 à 23:59:45    

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...

Reply

Marsh Posté le 01-02-2006 à 11:36:06    

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

Reply

Marsh Posté le 04-02-2006 à 17:14:29    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed