Bonjour,

Je débute en Perl, je cherche à retirer toutes les tabulations et backslash d'un fichier texte qui est sous forme :

       \\HOSTNAME1

        \\HOSTNAME2

                   \\HOSTNAME2-BIS

                    \\HOSTNAME2-TIER

         \\HOSTNAME3

J'ai besoin de récupérer les hosts 1, 2 et 3

Voici le code :

open(RD,"hostname.txt")||die("Erreur");

while(my $line = <RD>){
     #Pour retirer les espaces et tabulations
     $line =~ s/^[\s]+//;
     #Pour retirer les backslash
     $line =~ s/^\\+//;
}

close(RD);

Cela ne fonctionne pas... Avez vous une idée s'il vous plais ?

Merci d'avance pour votre temps,