restrancription de code perl

bonjour à tous,

voila comme vous l'avez peut être deviner un nouveau message dans un forum est synonyme de problème ;) donc voila le mien :

j'essaye de retranscrire se morceau de code sans l'option -e (bref dans un ficher perl et non en ligne de commande)

voila le code :

perl -wnlaF';' -e '($_)=@F;
$F[1] =~ /\.150$/ && $F[0] =~ /^p[1-9]/ and print "$F[0]\t$F[1]\t$F[2]\t$F[3]\t$F[18]";' fichiertest.csv

merci par avance de votre aide
+

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl use strict; use warnings; # pour -w while (<>) { # pour -n my @F = split ';'; # pour -F';' # ton code }

---

Si tu ne veux pas passer le fichier en ligne de commande, tu peux le lire dans le script :

Code:

---

1 2 3

open my $filehandle, '<', 'fichiertest.cvs' or die "$!\n"; while (<$filehandle>) {

---

Sinon pour traiter les cvs, tu peux aussi jeter un oeil aux modules dédiés sur le CPAN (tu trouveras plusieurs threads qui en traitent sur ce forum).

merci le mangeur de pasteque