recuperation element tableau

Bonjour,

J'ai un fichier avec des lignes contenant un séparateur. Je mets chacun de ces éléments dans un tableau

Code:

---

1 2	@TableauLigne = split ( /${Separateur}/, ${Ligne} ) ;

---

Je récupére le nombre d'éléments du tableau, on en compte 8 ou 9

Code:

---

1 2	my $NbreColonneTotal= scalar(@TableauLigne);

---

Je souhaite reconstituer ma ligne en faisant abstraction de ma colonne 3.
Comment puis je faire ?
Il faut que je récupère mes éléments 1,2,4,5,6,7,8

Comment puis je faire ?

Merci

Bonjour,
Ben si tu ne récupères jamais le 9ème :

File.txt

Code:

---

1 2 3 4 5 6 7 8

Un Deux Trois Quatre Cinq Six Sept Huit Neuf Un Deux Trois Quatre Cinq Six Sept Huit Neuf Un Deux Trois Quatre Cinq Six Sept Huit Un Deux Trois Quatre Cinq Six Sept Huit Neuf Un Deux Trois Quatre Cinq Six Sept Huit Neuf Un Deux Trois Quatre Cinq Six Sept Huit Un Deux Trois Quatre Cinq Six Sept Huit Un Deux Trois Quatre Cinq Six Sept Huit Neuf

---

[EDIT 17:05] code supprimé voir correction ci-dessous

Plus simple est l'usage des slices :

Code:

---

print join " ", @TableauLigne[0..1,2..$#@TableauLigne];

---

en fait, ça ne répond pas à ma question, car mon nombre de colonne peut varier suivant les fichiers
et je souhaite reconstituer le fichier sans prendre en compte la colonne 2 ou 3 ou 4 ou 5...


N'y aurait il pas un commande

Code:

---

1 2	$Tableau[1] $Tableau[4..6]

---

Merci pour la commande, mais il n'aime pas $#@TableauLigne

J'ai l'erreur suivante :

Code:

---

1 2 3 4 5

Bareword found where operator expected at script.pl line 93, n (Missing operator before TableauLigne?) syntax error at script.pl line 93, near "$#@TableauLigne" Execution of script.pl aborted due to compilation errors.

---

Code:

---

print join " ", @TableauLigne[0..1,2..$#@TableauLigne];

---

[/QUOTE]


Merci pour ton aide

Philou67430 veut certainement écrire :

Code:

---

print join " ", @TableauLigne[0..1,3..$#TableauLigne], "\n";

---

Mais ça ne correspond pas, car :

Citation:

---

et je souhaite reconstituer le fichier sans prendre en compte la colonne 2 ou 3 ou 4 ou 5...

---

Commme ci-dessus en jouant avec des variables et des conditions suivant 2 ou 3 ou 4 ou 5...
Il me semble... faut-il encore connaître les conditions... qu'il y en ait pas une centaine...

en fait, j'ai un fichier avec des séparateur

Code:

---

1 2	disque;ampoule;maison;immeuble;lumière;

---

En fonction du paramètre que je veux passer -ct 3, je veux supprimer ma colonne 3 donc ;maison; et reconstituer ma ligne.

pour avoir

Code:

---

1 2	disque;ampoule;immeuble;lumière;

---

A la louche :

Code:

---

1 2 3 4 5 6

my $ct = shift; print "CT=$ct\n"; ...   print join " ", @TableauLigne[0..$ct,$ct+2..$#TableauLigne], "\n";

---

Je te laisse affiner les histoires d'intervalles et de piquets... :D


[EDIT 16:27] NON il y a une grosse bourde !
Code supprimé, voir le suivant

Désolé, Je corrige (toujours à la louche) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl use strict; use warnings; use utf8;   my $ct = shift; print "CT=$ct\n"; my $File = "File.txt"; my ( @Tableau ) = ();   open( my $FIC, '<:utf8',$File) or die("\nAno ouverture $File : \n$!");   while( <$FIC> ) { @Tableau = split ( / / ); print join " ", @Tableau[0..$ct,$ct+2..$#Tableau], "\n"; }   close($FIC);

---

comment savoir si c'est +1 +2

Code:

---

1 2

$ct+1

---

Tu peux aussi écrire :

Code:

---

1 2 3 4

my $colonne_a_supprimer = 3; my $colonnes_a_garder = grep $_ != $colonne_a_supprimer, 0..$#TableauLigne; print join ";", @TableauLigne[@colonnes_a_gerder];

---

Peut-être simplement ceci:

Code:

---

1 2 3 4 5

my $ct = shift; while (<>) { print join $sep, (split /$sep/, $_)[0..$ct-1, $ct+1..8]; }

---

Ou, plus simple, si le séparateur est l'espace:

Code:

---

1 2 3 4 5

my $ct = shift; while (<>) { print join " ", (split)[0..$ct-1, $ct+1..8]; }

---

L'idée d'utiliser une liste de colonne à conserver vient du fait que :
- dans un premier temps, j'ai eu un doute sur le comportement aux limites ($ct == 0 ou $ct == $#Table) conduisant (si le tableau fait 8 éléments) à un slice du type @Table[0..-1,1..8] ou @Table[0..7,9..8], mais il semble que cela fonctionne comme on pourrait s'y attendre
- l'usage de la liste de colonne permet de s'affranchir du nombre de colonne à supprimer (dans le cas initial, 1, mais on ne sait pas si c'est le seul cas envisagé)

Bonjour,

Citation:

---

Envoyé par Philou67430

L'idée d'utiliser une liste de colonne à conserver vient du fait que :
- dans un premier temps, j'ai eu un doute sur le comportement aux limites ($ct == 0 ou $ct == $#Table) conduisant (si le tableau fait 8 éléments) à un slice du type @Table[0..-1,1..8] ou @Table[0..7,9..8], mais il semble que cela fonctionne comme on pourrait s'y attendre
- l'usage de la liste de colonne permet de s'affranchir du nombre de colonne à supprimer (dans le cas initial, 1, mais on ne sait pas si c'est le seul cas envisagé)

---

J'aime bien cette solution car en effet on peut supprimer plusieurs colonnes.
J'ai fait qq essais, pour jouer, comme dab, il y a un warnig et un effet de bord que je ne maîtrisent pas...

- le warnig :

Code:

---

Possible precedence problem on bitwise & operator at SupCol_2.pl line 25.

---

Mais je ne sais pas si je code correctement :

Code:

---

my @colonnes_a_garder = grep $_ != $ct1-1 & $_ != $ct2-1 & $_ != $ct3-1,00..$#TableauLigne;

---

- l'effet de bord sur le retour à la ligne seulement si la ligne compte un seul élément de plus à supprimer que n'en donne le split :

Code:

---

1 2 3 4 5 6 7 8 9 10

Philou67430 Deux;Quatre;Six;Sept;Huit;Neuf;Dix; Deux;Quatre;Six;Sept;Huit;Neuf; Deux;Quatre;Six;Sept;Huit; Deux;Quatre;Six;Sept;Huit;Neuf; ampoule;chaiseDeux;Quatre;Six;Sept;Huit;Neuf; Deux;Quatre;Six;Sept;Huit; Deux;Quatre;Six;Sept; Deux;Quatre;Six;Sept;Huit;Neuf E:\_DEV\vince2005>

---

Dans tous les autres cas c'est OK :ccool:

Dans le cas de Lolo78 on a un warnig pour chaque ligne dont le nb de mot ne correspond pas exactement au split.
Dans cette syntaxe est-il possible d'avoir la fin du tableau sous forme d'une variable ?

Pour jouer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

#!/usr/bin/perl use strict; use warnings; use utf8;   my $ct1 = shift; my $ct2 = shift; my $ct3 = shift; print "CT=$ct1 $ct2 $ct3\n"; my $File = "SupCol.txt"; my ( @TableauLigne ) = ();   open( my $FIC, '<:utf8',$File) or die("\nAno ouverture $File : \n$!"); while( <$FIC> ) { @TableauLigne = split ( /;/ ); print join ";", @TableauLigne[0..$ct1-2,$ct1..$#TableauLigne]; } close($FIC);   # OU Philou67430 print "\n\nPhilou67430\n"; open( $FIC, '<:utf8',$File) or die("\nAno ouverture $File : \n$!"); while( <$FIC> ) { @TableauLigne = split ( /;/ ); my @colonnes_a_garder = grep $_ != $ct1-1 & $_ != $ct2-1 & $_ != $ct3-1,00..$#TableauLigne; print join ";", @TableauLigne[@colonnes_a_garder]; } close($FIC); =pod # OU Lolo78 print "\n\nLolo78\n"; open( $FIC, '<:utf8',$File) or die("\nAno ouverture $File : \n$!"); my $sep = ";"; while( <$FIC> ) { #print join $sep, (split /$sep/, $_)[0..$ct1-2, $ct1..8]; print join " ", (split)[0..$ct1-1, $ct1+1..3]; } close($FIC);

---

SupCol.txt :

Code:

---

1 2 3 4 5 6 7 8 9

Un;Deux;Trois;Quatre;Cinq;Six;Sept;Huit;Neuf;Dix; Un;Deux;Trois;Quatre;Cinq;Six;Sept;Huit;Neuf; Un;Deux;Trois;Quatre;Cinq;Six;Sept;Huit; Un;Deux;Trois;Quatre;Cinq;Six;Sept;Huit;Neuf; disque;ampoule;immeuble;chaise; Un;Deux;Trois;Quatre;Cinq;Six;Sept;Huit;Neuf; Un;Deux;Trois;Quatre;Cinq;Six;Sept;Huit; Un;Deux;Trois;Quatre;Cinq;Six;Sept; Un;Deux;Trois;Quatre;Cinq;Six;Sept;Huit;Neuf;

---

Je n'ai pas regardé l'effet de bord, mais en revanche, tu devrais utiliser le "et logique" (&&) au lieu du "et bit à bit" (&), car la précédence et le résultat sont complètement différents.

Citation:

---

Envoyé par Philou67430

tu devrais utilise le "et logique" (&&) au lieu du "et bit à bit" (&), car la précédence et le résultat est complètement différent.

---

Oui j'en étais arrivé au bit à bit car je n'y arrivais pas avec (&&).
Mais là en refaisant au calme c'est OK sans warnig, hormis le \n :

Code:

---

my @colonnes_a_garder = grep $_ != $ct1-1 && $_ != $ct2-1 && $_ != $ct3-1,00..$#TableauLigne;

---

Je résous bien sûr le pb du \n avec chomp, mais c'était au cas où il y aurait eu un truc :D :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

# OU Philou67430 print "\n\nPhilou67430\n"; open( $FIC, '<:utf8',$File) or die("\nAno ouverture $File : \n$!"); while( <$FIC> ) { chomp; @TableauLigne = split ( /;/ ); my @colonnes_a_garder = grep $_ != $ct1-1 && $_ != $ct2-1 && $_ != $ct3-1,00..$#TableauLigne; print join ";", @TableauLigne[@colonnes_a_garder]; print "\n"; } close($FIC);

---

MERCI !

Si tu veux t'épargner les -1 dans l'expression (assez "disgracieux" donc "perturbateur" de lecture) :

Code:

---

my @colonnes_a_garder = grep $_ != $ct1-1 && $_ != $ct2-1 && $_ != $ct3-1,00..$#TableauLigne;

---

tu peux écrire, avant le while :

Code:

---

1 2 3 4 5 6

$_-- foreach $ct1, $ct2, $ct3; # numéro => index de tableau while ... { ... my @colonnes_a_garder = grep $_ != $ct1 && $_ != $ct2 && $_ != $ct3,00..$#TableauLigne; ... }

---

Citation:

---

Si tu veux t'épargner les -1 dans l'expression (assez "disgracieux" donc "perturbateur" de lecture) :

---

Oui, c'était pour l'utilisateur... 0 c'est la colonne 1, 1 c'est la colonne 2...

Mais comme c'est vraiment disgracieux et perturbateur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

my $ct1 = shift; my $ct2 = shift; my $ct3 = shift; $ct1--; $ct2--; $ct3--;   ...   my @colonnes_a_garder = grep $_ != $ct1 && $_ != $ct2 && $_ != $ct3,00..$#TableauLigne;

---

Puisque tu es super disponible, mais seulement quand, et si, tu as le temps...
Serait-il possible de gérer un intervalle, j'ai essayé mais évidemment c'est pas bon :

Code:

---

my @colonnes_a_garder = grep $_ > $ct1 && $_ < $ct2,00..$#TableauLigne;

---

Peut-être manque-t-il des parenthèses pour forcer l'ordre des opérations ?

Code:

---

my @colonnes_a_garder = grep ($_ > $ct1) && ($_ < $ct2),00..$#TableauLigne;

---

Sans plus d'explication sur ce qui ne va pas, je ne vois pas d'autre source d'erreur.

je voulais vous remercier, ça fonctionne !

Et si par exemple, je veux supprimer plusieurs colonnes ? que je passe en paramétre 2,3