|
|
|
|
Bonjour à tous,
Je ne parviens pas à réaliser un unshift sur un tableau à 2 dimensions. J'ai créé ce tableau pour stocker les lignes d'un fichier. J'obtiens par exemple après mise en tableau :
@tab = ("un","deux","trois",
"quatre", "cinq", "six",
"sept","huit","neuf")
J'aimerais maintenant écrire un commentaire, parfois, à la fin d'une ligne; ceci donnerait :
@tab = ("un","deux","trois", "un commentaire",
"quatre", "cinq", "six", "un autre commentaire"
"sept","huit","neuf")
J'ai essayé avec un unshift, mais le résultat s'est montré assez abomibable, et le recours aux références m'a quelque peu rebuté ....
Si vous avez des suggestions, merci d'avance,
Stéphane
Salut,
#!/usr/bin/perl
use warnings;use strict;
open LIRE,"fichier" or die "E/S : $!\n";
while ( <LIRE> ) {
push @tab,$_;
}Pour les commentaires tu peux faire comme ça#!/usr/bin/perl
use warnings;use strict;
my @tab = ("un","deux","trois"); # un commentaire
@tab = (@tab,"quatre", "cinq", "six");# un autre commentaire
@tab = (@tab,"sept","huit","neuf"); # un autre commentaire Si tu me dit exactement ce que tu veux, peut être je pourrai t'aider ;)
lami20j P.S. Et je ne vois pas où tu as tableaux de tableaux |
Merci de ta réponse.
|
Re,
lami20j@debian:~/trash$ cat steph.txt line 1 line 2 line 3Je traite les lignes en mettant tout en majuscules. Le script #!/usr/bin/perl
use warnings;use strict;
open LIRE,"steph.txt" or die "E/S : $!\n";
while ( <LIRE> ){
chomp;
print uc($_)," - traitement de la ligne $.\n";
}
Le résultatlami20j@debian:~/trash$ perl ccm_vider.pl LINE 1 - traitement de la ligne 1 LINE 2 - traitement de la ligne 2 LINE 3 - traitement de la ligne 3lami20j P.S. Si j'ai mal compris, tu peux me donner un exemple concret. |