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); |
Partager