1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
my $unechaine = "Manip-ulati@ on";
my $chainefinal;
while (length($unechaine) > 0){
$lengthchaine = length($unechaine);
if (substr($unechaine,0,1) =£ /^[0-9a-zA-Z]*$/){
if (substr($unechaine,0,1) ne " "){
$chainefinal.=substr($unechaine,0,1);
} else{
$unechaine = substr($unechaine,-($lengthchaine-1))
}
} else {
$unechaine = substr($unechaine,-($lengthchaine-1));
}
}
my bonnechaine = $chainefinal; |
Partager