Affichage des lignes d'un fichier

Affichage des lignes d'un fichier - Perl - Programmation

Marsh Posté le 19-11-2005 à 07:45:52    

Aie aie aie, je comprend plus rien. Voila, j'ouvre un fichier (bird.txt) ou sont stocké des noms d'oiseaux, ligne par ligne. Puis j'affecte le contenu de mon fichier dans @tab. Mais lorsque je parcoure mon tableau, seul la premiere ligne de mon fichier (donc le premier element du tableau) s'affiche.  J'ai testé la variable $k, celle ci ne s'incrémente pas, et je ne vois pas pourquoi?
 
Si quelqu'un a une idée... je l'en remercie d'avance
 

Code :
  1. $file= "/var/www/html/file/bird.txt";
  2. open DATA,"$file";
  3.   my @tab = <DATA>;
  4. close DATA;
  5.  
  6. for(my $k=0, $k<=@tab,$k++) {
  7.   $sbird=$tab[$k];
  8.   print "<OPTION>$sbird</OPTION>\n";
  9.   }

Reply

Marsh Posté le 19-11-2005 à 07:45:52   

Reply

Marsh Posté le 19-11-2005 à 09:45:01    

Si tu tiens vraiment à écrire ta boucle comme ça, C-style (bleârgh), remplace les virgules par des points-virgules dans la définition de ta boucle for.
 
Sinon j'aurais plutôt vu ton bout de script écrit comme ceci :
 

Code :
  1. my $file= "/var/www/html/file/bird.txt";
  2. open DATA, "<$file" or die "Ouverture de $file impossible : $!\n";
  3. print "<OPTION>$_</OPTION>" foreach ( <DATA> );
  4. close DATA;


 
 
Ou, à la limite :

Code :
  1. my $file= "/var/www/html/file/bird.txt";
  2. open DATA, "<$file" or die "Ouverture de $file impossible : $!\n";
  3. foreach my $line ( <DATA> ) {
  4.    print "<OPTION>$line</OPTION>";
  5. }
  6. close DATA;

Reply

Marsh Posté le 20-11-2005 à 11:08:07    

Merci, je vais prendre tes exemples, ils sont beaucoup plus propre que le mien.


Message édité par guzman le 20-11-2005 à 11:08:20
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed