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
