Discussion :

[vince2005]

Bonjour,

J'ai un fichier toto dans lequel j'ai des colonnes avec comme séparateur de chams des ";". Il y a x colonnes qui peuvent varier.

Pour chaque ligne Je souhaiterai récupérer la valeur de ma première colonne en l'affichant et copier le reste des colonnes de cette ligne dans un fichier.

Avec le script ci-dessous j'arrive à récupérer la valeur de ma première colonne et à l'afficher. Mais je ne sais pas comment récupére les colonnes qui suivent de manière simple.

Merci pour votre aide

my $FicTempTravail="C:\toto.txt";
my $SeparateurChamps=";";

open (FIC_OUT, "<${PathInitial}/${FicTempTravail}") || die "Ouverture impossible du fichier ${FicTempTravail}: $!";

while ($Ligne = <FIC_OUT> )
{
my ($NomAdherent,undef) = split(/\s*${SeparateurChamps}\s*/,$Ligne) ;
print ">$NomAdherent<\n";
print "$Ligne\n";
}
close (FIC_OUT);

[Jiheme44]

quand tu splittes la ligne du fichier, il faut juste récupérer dans un tableau ce que te renvoies la fonction 'split' :

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
my $fichierTravail = "C:\toto.txt";
my $fichierOut = "C:\toto_out.txt";
my $separateurChamps = ";";
my $ligne;
my @tab = ();
my $nomAdherent;
 
open ( FIC_IN, "<$fichierTravail" ) || die "Ouverture impossible du fichier $FicTempTravail: $!";
open ( FIC_OUT, ">$fichierOut" ) || die "Ouverture impossible du fichier fichierOut: $!";
 
while (<FIC_IN> ) {
  $ligne = $_;
  ( $nomAdherent, @tab ) = split( /$separateurChamps/, $ligne) ;
  print ">$nomAdherent<\n";
  print FIC_OUT join( ';', @tab);
}
close (FIC_IN);
close (FIC_OUT);

Voici le code que je testerais (compil et fonctionnement non vérifié).

[vince2005]

merci

[Lolo78]

Plutôt que:

Code :

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

( $nomAdherent, @tab ) = split( /$separateurChamps/, $ligne) ;

j'écrirais:

Code :

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

( $nomAdherent, $reste_de_la_ligne ) = split( /$separateurChamps/, $ligne, 2) ;

C'est plus rapide et il n'y a pas besoin de join ensuite pour imprimer le $reste_de_la_ligne.