Perl me semble un excellent outil pour ce que tu veux faire.
#!/usr/bin/perl
open (IN, "tonfichier.c") or die("argghhh !");
open (OUT, ">fichierDeSortie.c") or die ("ou la la !");
while ($ligne = ) {
print OUT $ligne;
chomp $ligne;
if ($ligne =~/^void /) {
($void, $nomFonction, @toutLeReste) = split ' ', $ligne;
print OUT 'fprint(stderr,';
print OUT $nomFonction;
print OUT ')';
}
}
close IN;
close OUT;
Maintenant, vu le temps qui s'est ecoule entre aujourd'hui et la derniere fois ou j'ai touche a Perl, il est clair que quelque debugging s'impose et que mon code est loin d'etre executable tel quel, mais l'algo est la.
[^] # Re: En perl ?
Posté par Clem Yeats . En réponse au journal Rajouter automatiquement une ligne dans chaque void d'un source C. Évalué à 1.
#!/usr/bin/perl
open (IN, "tonfichier.c") or die("argghhh !");
open (OUT, ">fichierDeSortie.c") or die ("ou la la !");
while ($ligne = ) {
print OUT $ligne;
chomp $ligne;
if ($ligne =~/^void /) {
($void, $nomFonction, @toutLeReste) = split ' ', $ligne;
print OUT 'fprint(stderr,';
print OUT $nomFonction;
print OUT ')';
}
}
close IN;
close OUT;
Maintenant, vu le temps qui s'est ecoule entre aujourd'hui et la derniere fois ou j'ai touche a Perl, il est clair que quelque debugging s'impose et que mon code est loin d'etre executable tel quel, mais l'algo est la.
Bon courage.