Discussion :

[cool_]

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
+

[iblis]

Code :

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

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 :

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

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).

[cool_]

merci le mangeur de pasteque