Je n'ai pas compris ce que tu veux dire avec 'index' mais voilà un bout de code qui devrait te permettre de récupérer le premier mot (alphanumérique, sans espace, tabluation etc) de chaque ligne d'un fichier.
open FILE, ">file.txt" or die "Cannot open file : $! \n";
for my $line(<FILE>){
$line=~ /^(\w+)/;
print 1,ドル"\n"; # premier mot de la ligne
}
# Pas tout compris
Posté par littlebreizhman . En réponse au message Récupérer une variable / index. Évalué à 1.
open FILE, ">file.txt" or die "Cannot open file : $! \n";
for my $line(<FILE>){
$line=~ /^(\w+)/;
print 1,ドル"\n"; # premier mot de la ligne
}