Discussion :

[Jasmine80]

Bonjour a tous,

Code :

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

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'avance merci pour votre aide

Jasmine

[JeanMi3000]

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

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
 
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 :

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

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.

[Jasmine80]

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.

[Gardyen]

et comme cela ?

Code :

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

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

[Jasmine80]

Code :

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

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> ?

[Gardyen]

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

[Jasmine80]

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

[Lolo78]

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 :

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

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.

[Jasmine80]

Merci a tous pour vos conseils.