Tri de fréquence en perl [Fermé]

Signaler
-
Bonjour,
comment faire le tir de fréquences des mots en perl

mon code

#!/usr/bin/env perl
#use warnings;
#use strict;

#
# Afficher le nombre d'occurrences de chaque mot
#printf ("Entrer un texte libre sur plusieurs lignes\n");
#!usr/bin/perl
#open(J, '>texte1.txt');

open(TEXTE, 'testes.txt');
#open(TEXTE1, 'texte2.txt');
#open(TEXTE, 'petites.txt');
open(J, '>frequence.txt');
@texte = <TEXTE>;
@texte1 = <TEXTE1>;
chomp(@texte);
$nbmots = 0;
$nblig = 0;
$nbcar = 0;
%occurrences = ();
foreach (@texte)
{
$nblig++;
$nbcar += length();

~ s/[,;,:!?.'\- ]+/ /g;
@mots = split(/ /);
$nbmots = $nbmots + @mots;
foreach $mot (@mots)
{
if($occurrences{$mot})

{
$occurrences{$mot} += 1;
}
else
{
$occurrences{$mot} = 1;
}
}
}

print J ("Nb de lignes saisies : $nblig \n");
print J ("Nb de mots saisis : $nbmots\n");
print J ("Nb de caractères saisis : $nbcar\n");
print J ("Nb d'occurrences par mot : $occurrences\n");
while (($mot, $occs) = each ( %occurrences))
{
print J ("\t$mot --> $occs\n");
#@out = sort @mots;
#sort ($mot, $occs);
#@mots = sort (@mots);
}