Dis moi si ca va mieux maintenant.
Toujours pas ! Cette proc�dure me bouffe tous les sauts de lignes et me place leur contenu bout � bout ! Vois mon premier message, j'avais subodor� un pb avec ce caract�re de saut de ligne. Ce qui est surprenant avec ton script est que tu ne travailles que sur des lignes, sauf que ton :
print FILE_OUT $LINES[$i];
recopie les caract�res de la ligne et non pas la ligne au sens classique avec son caract�re de saut � la ligne suivante � la fin !
Bref, comme je ne connais pas le Perl il vaudrait mieux que tu essaies tout cela sur le petit fichier suivant joint.
Amicalement.
Rien de plus facile, il suffit d'ajouter le caract�re de fin de ligne (\n) � chaque �criture dans le fichier. Donc le script devient:
#!/usr/bin/perl
# Unbuffer the output
$| = 1;
#definition des chemin d'acc�s
$mon_fichier_a_traiter="/home/jean/tempo/mon_fichier"; $mon_resultat="/home/jean/tempo/nouv_fichier";
#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]\n";}
}
close (FILE_OUT);
print "Termin�";
exit 0;Bon WE,
--
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
