Le Dimanche 20 Juillet 2003 08:28, Jean Segers a �crit :
> Daniel Moyne a �crit :
> >>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;
Merci,
Jean �a fonctionne !
--
Daniel Moyne
(Nulix)-----------------------------------------------------------
Software : Mandrake 9.1 \\|// kernel "2.4.21-0.13dm"
KDE 3.1.0 / --- \
(' o-o ')
--------------------------------oOO-(_)-OOo------------------------------------
Vous souhaitez acquerir votre Pack ou des Services MandrakeSoft?
Rendez-vous sur "http://www.mandrakestore.com";.
Foire Aux Questions de la liste : http://mdk.mondelinux.org
