Discussion :

[rimenis]

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

[Lolo78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $premier = shift @values;

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $premier = $values[0];

[Philou67430]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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