fonction split en perl

Bonjour ,

Code:

---

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

Ben, tu l'as déjà récupéré, c'est le premier élément de @values.

Code:

---

my $premier = shift @values;

---

ou

Code:

---

my $premier = $values[0];

---

Si tu souhaites ne récupérer que le premier caractère, le split n'est pas utile. La fonction substr est plus indiquée :

Code:

---

my $premiere_lettre = substr($mot, 0, 1);

---