Re: to copy a file (with perl)

[St�phane JEAN BAPTISTE]

This is my code :


/^valeur=/ && do {
 $val=$_;
 $val=~s/valeur=//;
 };

open(IN,"actualite.txt");
open(OUT,">>tamp.tmp");

$i=1;

while ( $line = <IN> )
{
        if ( $i != $valeur )
        {
       print OUT $line;
        };
        $i++;
}

close IN;
close OUT;