Discussion :

[martijan]

bonjour,

j'ai un tout p'tit prob, voici un bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
 
open (FAV, "fav.txt") or die "ne trouve pas fav";
	while (<FAV>)
	{
	my $entry=<FAV>;
	chomp($entry);
	push (@favoris,$entry);
	}
Close FAV;

dans FAV il y a :
2
4
6

un chiffre par ligne.

pourquoi il prends une ligne supplementaire et mon @favoris n'ai pas constitue de 3 composants mais de quatre ????

peut-on m'aider ?
d'avance merci.

[nyal]

Bonjour,

Ton code n'est pas bon.
Tu lis le fichier avec ton while puis tu le relis. Ca fait deux lignes de lu deja.

Voici un code qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#! /usr/bin/perl
 
open (FAV, "fav.txt") or die "ne trouve pas fav";
while (<FAV>)
{
  chop;
  push (@favoris,$_);
}
close FAV;
foreach my $value (@favoris) {
    print $value . "\n";
}

[martijan]

OK, merci je vais faire l'essai.

[martijan]

OK ca marche merci