#!/usr/local/bin/perl
open (DESCRI ,"monsuperfichier.txt");
open (DESCRI2, ">sortie.txt");
while (<DESCRI>)
{
if (/./)
{
}
else
{
print DESCRI2 $_;
}
}
close (DESCRI);
close (DESCRI2);
Je sais c'est possible en une ligne (mouais 3 plutot) mais comme cela
c'est plus claire pour notre ami.
Alx
Gerd-Christian Michalke wrote:
> Amis du folklore, de la joie et de la bonne humeur, bonjour !
>
> bon, en fait j'ai qques fichiers textes genre 30.000 lignes qui
> contiennent une valeur numerique par ligne.
>
> Malheureusement, il s'est glisse dans ce fichiers des lignes ou apparait
> la chaine
> "."
>
> comme il y en a beaucoup, je me vois mal les enlever a la main. J'ai
> essaye de joue avec tr "." mais evidemment ca ne va pas vu que le . est
> utilise dans les nombres decimaux.
>
> C'est surement stupide, mais on peut faire ce genre de choses avec quel
> outil ?
>
> Merci a l'avance
> Gerd
>
> ps: je sens que si ca continue comme ca, je vais me le faire, ce
> TFE-With-Linux-HOWTO ;-)
>
>
>
> [ Soyez pr�cis dans vos sujets svp afin de d�terminer directement ]
> [ le type de demande... ]
> [ Pour vous (d�s)inscrire, aller sur http://linuxbe.org/ml.php ]
> [ http://LinuxBe.org Contact: [EMAIL PROTECTED] ]
[ Soyez pr�cis dans vos sujets svp afin de d�terminer directement ]
[ le type de demande... ]
[ Pour vous (d�s)inscrire, aller sur http://linuxbe.org/ml.php ]
[ http://LinuxBe.org Contact: [EMAIL PROTECTED] ]
