• # Essayons d'être cool

    Posté par . En réponse au message code perl remplacement automatique dans un fichier texte. Évalué à 0.

    1.

    mac@gulliver:/tmp$ cat test.pl
    #!/usr/bin/perl -w

    use strict;
    my $line;

    while ( $line = <> )
    {
    if ( $line =~ /seq1(\d+)\D/ )
    {
    $line =~ s/([a-z])(?=[a-z])/1ドル_/gi if 1ドル > 1;
    }
    print "$line";
    }

    mac@gulliver:/tmp$ echo "bouseq112aa" | ./test.pl
    b_o_u_s_e_q112a_a

    Je te laisse le 2 à titre d'exercice :)