#!/usr/bin/perl
use strict;
my $toto = 'caractère par caractère';
my @tab_toto = split (//, $toto);
foreach my $lettre (@tab_toto) {
print $lettre, "\n";
#!/usr/bin/perl
use strict;
my $toto = 'caractère par caractère';
my @tab_toto = split (//, $toto);
foreach my $lettre (@tab_toto) {
print $lettre, "\n";
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.