Comment maintenir le contenu d'une variable?

Non, pour moi, si on rajoute le mot avec un simple tiret, c'est qu'il y a un caractère supplémentaire (invisible) derrière les attributs.

Peux-tu ajouter la ligne suivante après le split de $tmp[1]:

print scalar @attribs;

Elle va donner la taille du tableau (le nb d'attributs) et c'est sûrement ici que tu verras qu'il y a un loup (3 au lieu de 2, par exemple).

Dont une explication pourrait être la suivante :

Tu es sous windows ou linux ? Il est possible que la fin de ligne soit considérée comme un caractère et donc traitée en tant qu'attribut.

Tu pourrais dans ce cas, faire un :

chomp($tmp[1]);

avant le split (ou le faire sur $LIGNE_LUE avant son split).

C'est sûrement ce qui fait que tu as une ligne entre chaque mot. En fait, on affiche le mot et son attribut mais comme l'attribut est très vraisemblablement un saut de ligne, ça donne ce résultat de ligne blanche en trop.

Tu peux aussi rajouter le module Data::Dumper en tête de programme avec :

use Data::Dumper;

et voir ce que contiennent les différentes variables :

print Dumper @attribs;

Je pense que mon programme est correct depuis le début ;-))
 

En simplifiant, ça pourrait donner ça :
 

while(<FICHIER_ENTREE>)
{
    my $LIGNE_LUE = "$_";
    chomp($LIGNE_LUE);
    my ($mot,$attribs) = split(/-/,$LIGNE_LUE);
    my @attribs = split(//,$attribs);
    foreach my $attrib (@attribs)
    {
         print FICHIER_SORTIE $mot."-".$attrib."\n";
    }
}

Salut,

Je travaille sous Linux Mint.

Mon fichier d'entrée est :

accrocher-V
aéronef-
agile-A
bien-ABN
éducatrice-AN

1) J'ai fait ta ligne de commande "print scalar @attribs;" après le split de $tmp[1]:

while(<FICHIER_ENTREE>)
{
my $LIGNE_LUE = "$_";
my @tmp = split(/-/,$LIGNE_LUE);
my $mot = $tmp[0];
my @attribs = split(//,$tmp[1]);

print scalar @attribs;
system ("sleep 2");

foreach my $attrib (@attribs)
{
 print FICHIER_SORTIE $mot."-".$attrib."\n";
}
}

Résultat : 21243
Donc, c'est correct : 2 (accrocher-V) // 1 (aéronef-) // 2 (agile-A) ...

2) Ta suggestion d'utiliser la commande chomp m'a rappelé que quelqu'un m'avait déjà conseillé d'utiliser cette commande, il y a longtemps, dans un autre script. J'aurais dû y penser.
J'ai ajouté ton autre ligne "chomp($tmp[1]);" avant le split, mais ça ne fonctionne pas correctement: si la ligne se termine par un trait d'union, le programme ne copie pas la ligne dans le fichier ...

while(<FICHIER_ENTREE>)
{
my $LIGNE_LUE = "$_";
my @tmp = split(/-/,$LIGNE_LUE);

my $mot = $tmp[0];
chomp($tmp[1]);
my @attribs = split(//,$tmp[1]);

foreach my $attrib (@attribs)
{
 print FICHIER_SORTIE $mot."-".$attrib."\n";
}

Résultat :

accrocher-V
agile-A
bien-A
bien-B
bien-N
éducatrice-A
éducatrice-N

3) Si j'utilise la ligne de commande "print Dumper @attribs;" ça donne

$VAR1 = 'V';
$VAR1 = 'A';
$VAR1 = 'A';
$VAR2 = 'B';
$VAR3 = 'N';
$VAR1 = 'A';
$VAR2 = 'N';

Donc, pour la ligne "aéronef-", la variable $VAR1 n'a pas de contenu.

4) Ton programme fonctionne correctement si j'ajoute un espacement après le tiret, soit "aéronef- ". C'est ce que je vais faire je crois (ou simplement ajouter la lettre N pour les noms).
5) Dans les mots composés, je vais utiliser l'astérisque au lieu du trait d'union (arc*en*ciel) sinon, ça ne fonctionne pas. C'est simple ensuite de les remplacer, par la suite, par un tiret.

Je ne croyais pas que c’était aussi compliqué.

Merci

Donc, il faut faire un test si scalar @attribs est égal à zéro pour ne pas passer dans la boucle d'affichage des attributs et n'afficher que le nom (en supposant que tu as fait le chomp).

if ((scalar @attribs) != 0)
{
    foreach my $attrib (@attribs)
    {
     print FICHIER_SORTIE $mot."-".$attrib."\n";
    }
}
else
{
    print FICHIER_SORTIE $mot."-\n";
}

Ca devrait résoudre pas mal de pb...

Et pourquoi ne mets-tu pas l'astérisque comme séparateur entre un mot et ses attributs ?

Dans ce cas, il faudra changer :

my @tmp = split(/-/,$LIGNE_LUE);

par

my @tmp = split(/\*/,$LIGNE_LUE);

En Perl, ce qui sert de séparateur à la commande split est une expression régulière et comme l'astérisque a un rôle dans les regex, on la déspécialise avec un backslash (\).

Ligne 45, mettre @attribs au lieu de $attribs, désolé. J'ai écrit sans tester...