Discussion :

[dmganges]

je voulais vous remercier, ça fonctionne !

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

Ben comme on s'y attendait, c'était l'objet de notre discussion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
 
my $ct1 = shift;
my $ct2 = shift;
my $ct3 = shift;
$ct1--;
$ct2--;
$ct3--;
 
my $File = "SupCol.txt";
my ( @TableauLigne ) = ();
 
# OU Philou67430
print "\n\nPhilou67430\n";
open( my $FIC, '<:utf8',$File) or die("\nAno ouverture $File : \n$!");
while( <$FIC> ) {
	chomp;
	@TableauLigne = split ( /;/ );
	my @colonnes_a_garder = grep $_ != $ct1 && $_ != $ct2 && $_ != $ct3,00..$#TableauLigne;
	print join ";", @TableauLigne[@colonnes_a_garder];
	print "\n";
}
close($FIC);

Tu peux remercier Philou67430 !

@Philou67430

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

Non, enfin je n'y suis pas arrivé...
Mais c'était de la curiosité...
En passant une liste de colonnes à conserver c'est encore plus rudimentaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
my @colonnes = @ARGV;
...
print "\n on conserve @colonnes (en fait +1)\n";
open( $FIC, '<:utf8',$File) or die("\nAno ouverture $File : \n$!");
while( <$FIC> ) {
	chomp;
	@TableauLigne = split ( /;/ );
	print join ";", @TableauLigne[@colonnes];
	print "\n";
}
close($FIC);

MERCI

[Philou67430]

je voulais vous remercier, ça fonctionne !

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

As-tu trouvé une solution dans une de mes réponses ?

Si non :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
my @TableauLigne = (0 .. 9);
my @indices_a_supprimer = (2, 3);
my @indices_a_garder = 0..$#TableauLigne;
splice @indices_a_garder, $_, 1 foreach sort { $b <=> $a } @indices_a_supprimer;
print join ";", @TableauLigne[@indices_a_garder];

[vince2005]

Oui merci !!! c'est nickel !!