afficher une séquence de fréquence des catégories
Bonjour,
Je suis à la recherche d\'un programme qui permet d\'afficher une séquence de fréquence des catégories. Je dois en fait afficher au moins 5 collocations. J\'ai essai ce script mais cela ne m\'affiche que 2 suites de catégories. QQ1 pourai résoudre mon pb svp?
use strict;
use locale;
my $ligne;
my $forme;
my $cat;
my $lemme;
my $collo;
my $i;
my $j;
my $motcle;
my @temp;
my %cooc ;
while ($ligne = <>) {
chomp $ligne;
( $forme, $cat, $lemme ) = split( /\\t/, $ligne );
if ( $cat ne \"SENT\" ) {
push ( @temp, $cat );
}
else {
for ( $i = 0; $i <= $#temp; $i++ ) {
$motcle = lc( $temp[$i] );
for ( my $j = $i-5; $j <= $i+5; $j++ )
{
if ( ( $j >= -5 ) and
( $j <= $#temp ) and
( $j != $i ) ) {
my $collo = lc ($temp[$j]);
$cooc{$motcle}{$collo}++;
}
}
}
@temp = ();
}
}
foreach $motcle ( sort keys %cooc ) {
my %cooc_motcle = %{ $cooc{$motcle} };
foreach $collo
( sort keys %cooc_motcle ) {
print $motcle, \"\\t\", $collo, \"\\t\",
$cooc_motcle{$collo}, \"\\n\";
}
}
