• # Ca doit être bon

    Posté par . En réponse au message Éliminer des lignes dans un fichier à ski.... Évalué à 3.

    Je pense avoir trouvé. Je suppose qu'il y a beaucoup plus simple mais il semble que ça marche. Teste ce script perl :

    #!/usr/bin/perl

    my $orig_file  = "mon_fichier";
    my $new_file   = "mon_nouveau_fichier";
    my @all_lines  = `cat $orig_file`;
    my $first_skip = 57;
    my $n_skip     = 3;
    my $i          = 1;


    chomp(@all_lines);
    for(my $j=0; $j<scalar(@all_lines); $j++) {

        if($i == $first_skip) {
            $i = 1;
            $j += $n_skip-1;
            next;
        }
        
        `echo $all_lines[$j] >> $new_file`;
        $i++;
    }

    Sur le principe ça semble bon... par contre en ce qui concerne l'écriture du nouveau fichier... Si tu as des caractères non alpha (apostrophe, quote, etc) je te conseille d'utiliser les mécanismes perl pour écrire la ligne (open, close, etc).