utilisation de la variable $.

Bonjour a tous,

Code:

---

1 2 3 4 5 6 7

foreach my $rep (@rep_list){   my $file = $root.$rep.'/s_Study id.txt'; if (-f $file){ open(DATA,$file) or die "Couldn't open file, $!"; while(my $l = <DATA>){ next if ($. == 1);

---

Je voudrais passer la premiere ligne de chaque fichier ... je ne me souviens plus comment faire ... en faisant des recherche, j'ai retrouve la variable $., mais $. n'est pas remis a zero a chaque nouveau fichier et donc ca ne me convient pas. La je contourne le probleme en utilisant une regexp qui me permet de passer la premiere ligne contenant toujours les meme entetes de colonne ... mais bon, autant apprendre a faire mieux :D

D'avance merci pour votre aide

Jasmine

Je dirai qu'il faut bêtement rajouter un compteur.

Code:

---

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

my $cpt = 0; foreach my $rep (@rep_list){ my $file = $root.$rep.'/s_Study id.txt'; if (-f $file){ open(DATA,$file) or die "Couldn't open file, $!"; $cpt = 0; while(my $l = <DATA>){ if ($cpt == 0){ $cpt = 1; next; } #TODO } } }

---

On pourrait aussi mettre <DATA> dans un tableau, et supprimer le premier élément

Code:

---

1 2 3 4 5

my @tab = <DATA>; shift(@tab); foreach my @element(@tab){ #TODO }

---

mais le problème viendrait de l'empreinte mémoire si on lit un gros fichier.

Merci pour ta reponse, mais je me demande si il n'y a pas des variables speciales utilisables, specifiques aux fichiers, pour justement eviter d'utiliser un compteur.

et comme cela ?

Code:

---

1 2 3

open my $IN, "<", "..." or die "Cannot open input file: $!"; <$IN>; while (<$IN>) {

---

Code:

---

1 2 3 4 5

if (-f $file){ open my $IN, "<", $file or die "Cannot open input file: $!"; <$IN>; while (<$IN>) { my @val = split /\t/, $_ ;

---

Oui, merci beaucoup, cela fonctionne ... peux-tu m'expliquer la ligne <$IN> ?

<$IN> lit simplement une ligne de ton fichier.

super, merci
... je me souviens qu'il y avait une facon de lire le fichier de la ligne x a z ... je vais essayer de retrouver comment

La méthode suggérée par Gardyen est vraiment la plus simple. Si tu veux sauter les 3 premières lignes de ton fichier:

Code:

---

1 2 3 4 5

open my $IN, "<", "..." or die "Cannot open input file: $!"; <$IN> for 1..3; while (<$IN>) { # ...

---

C'est aussi plus efficace, pour un gros fichier, que d'ajouter un test sur un compteur qui sera exécuté pour chaque ligne de ce gros fichier.

Merci a tous pour vos conseils.