Bonjour ,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
print " Donner un mot :\n";
$mot = <STDIN>;
my @values = split(undef,$mot);
 
  foreach my $val (@values) 
  {
    print "$val\n";
  }
//Résultat :
pour le mot rim par exemple il m'affiche :
r
i
m

Alors comment je peut récupérer dans une variable le premier caractère " r " du mot après faire le split ??

Merci d'avance