Le Jeudi 17 Juillet 2003 16:32, Jean Segers a écrit :
Daniel Moyne a écrit :
J'ai un gros fichier texte [....] dans le fichier
Une petit aide avec explications sera vivement appréciée.
C'est justement dans ce contexte que PERL montre sa suprématie :-P
#!/usr/bin/perl
# Unbuffer the output
$| = 1;
#definition des chemin d'accès
$mon_fichier_a_traiter="/chemin/du/fichier/a/t0raiter.txt"; $mon_resultat="/chemin/du/fichier/traité.txt";
#lecture du fichiers entrée et mise en variable RAM
open(FILE_IN, < $mon_fichier_a_traiter); @LINES=<FILE_IN>; [EMAIL PROTECTED]; close(FILE_IN);
#Traitement en RAM!
open(FILE_OUT, > $mon_resultat);
for (my $i = 0; $i < $SIZE; $i++) { chomp $LINES[$i]; $cherche = index("$LINES[$i]","2 ALIAS"); if ($cherche < 0) { print FILE_OUT $LINES[$i];} } close (FILE_OUT); print "Terminé";
Jean, je suis en cours de test de ton script sur mon fichier.
À l'exécution il me sort une erreur ligne 14 = "open(FILE_IN, < $mon_fichier_a_traiter);"
Unterminated <> operator at ./Traitement_file line 14.
kesaco !
Amicalement.
Huuuu! c'est même pas un typo ca! Remplace les deux ligne open par celles-ci:
open(FILE_IN, "$mon_fichier_a_traiter");
open(FILE_OUT, ">$mon_resultat");
C'est bête, mais j'avais oublié que même en utilisant des variables, il faut mettre le chemin du fichier entre guillemet. De plus le signe > qui indique la création d'un nouveau fichier doit se trouver également entre les guillemets.
Dis moi si ca va mieux maintenant.
--
Jean
\\\!///
-(@ @)-
----------------------------oOO--(_)--OOo----------------------------
Jean Segers Venez rêver -----> http://www.Demoiselle.com
26, rue du Pin http://www.Sadems.com
34190 Saint Bauzille de Putois http://it.mondelinux.org
France http://www.deveze.com
Gsm 06 86 12 49 15 http://www.cyberboutic.com
Tel 04 67 73 38 30 http://mdk.mondelinux.org
Fax 08 25 19 24 61
smime.p7s
Description: S/MIME Cryptographic Signature
