[Perl] Recuperer une liste de commande Fermé

Question

Bonjour, je suis sur un probleme depuis 3 jours et j'avance pas donc j'ai vraiment besoin de votre aide... En fait je veux recuperer une liste de commande (.txt) , et apres creer un fichier (dans mon cas un .rts) pour chaque commande. voici mon programme: open (G, ") { @L[$i] = $ligne; $i++; } close G; print "@L";#test foreach $com (@L) { print "$com";#test open (COMMANDE, ">$com.rts") or die "impossible 2";#mon probleme est ici -> il ne veut pas creer mes points rts et d'apres moi ca provient de mon tableau qui est mal definit... close COMMANDE; } Merci d'avance

R4f · Answer

Salut, Tu as oublié que lorsque tu lis les commandes dans texte.txt, tu as un retour-chariot à chaque fois dans ta variable. Pour le virer, utiliser chomp J'ai aussi ajouté un $com =~ s/\W+/_/g; pour que tes noms de fichiers n'aient pas des têtes u peu trop bizarres, mais tu peux le virer... #!/usr/bin/perl use warnings; use strict; open (G, ") { chomp($L[$i] = $ligne); $i++; } close G; print "@L";#test foreach my $com (@L) { $com =~ s/\W+/_/g; print "$com";#test open (COMMANDE, ">$com.rts") or die "impossible 2";#mon probleme est ici -> il ne veut pas creer mes points rts et d'apres moi ca provient de mon tableau qui est mal definit... close COMMANDE; } use strict est ton ami ! Raph

[Perl] Recuperer une liste de commande

1 réponse

Discussions similaires