[PERL] unshift et les tableaux de tableaux Fermé

Question

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

lami20j · Answer

Salut,

tu ne peux pas écrire des commentaires dans un tableau

Un tableau est un variable qui contient une liste des elements

Ce que tu as dans le tableau "un commentaire" est un element de la liste et pas un commentaire

Tu peux stocker les lignes d'un fichier dans un tableau de la façon suivante#!/usr/bin/perl
use warnings;use strict;

open LIRE,"fichier" or die "E/S : $!
";

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

bams14 · Answer

Merci de ta réponse.
   Je me suis effectivement mal exprimé : par "commentaire", je voulais dire ajouter du texte dans mon tableau (ce qui constituerait un commentaire pour l'utilisateur dans le fichier final, du type "cette ligne a été traitée", etc).

   En gros : j'ouvre un fichier texte composé de lignes, et je le vide dans mon tableau. On peux dire schématiquement que je mets chaque mot dans un tableau, et ce tableau est stocké dans un tableau. Je me retrouve avec un tableau a 2 dimensions.
   Je traite parfois ces lignes. Et c'est là que j'aimerais ajouter dans mon tableau quelques mots...

lami20j · Answer

Re,

je ne suis toujours pas si j'ai bien compris.
pourquoi utiliser tableaux de tableaux.

Voilà comment je vois dans ton cas.
J'ai crée un fichier qui contient 3 lignes.
lami20j@debian:~/trash$ cat steph.txt
line 1
line 2
line 3
Je 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 : $!
";

while ( <LIRE> ){
  chomp;
  print uc($_)," - traitement de la ligne $.
";
}
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 3
lami20j

P.S. Si j'ai mal compris, tu peux me donner un exemple concret.

[PERL] unshift et les tableaux de tableaux

3 réponses

Discussions similaires