en perl :
recopier le script ci-dessous en le nommant
zalafin.pl
puis le rendre exécutable en tapant:
chmod +x zalafin.pl
puis le lancer en tapant:
zalafin.pl nom_du_fichier
tu trouvera ton fichier modifier sous le nom:
nom_du_fichier_new.extention
#!/usr/bin/perl -w
# usage: zalafin nom_du_fichier
# -------------------aadelmar
#use strict;
$file = "$ARGV[0]" || die "usage: zalafin.pl [nom_du_fichier] $!";
print "$file\n";
my @nwcontenu = "";
open FO, "$file" or die "ouverture de $file impossible $!";
my @contenu = <FO>;
close FO || die "Fermeture de $file impossible $!";
foreach (@contenu) {
chomp;
my $line = "$_;0\n";
push @nwcontenu, $line;
}
(my $filroot, my $ext) = split(/\./, $file);
my $fileout = "$filroot" . "_new\." . "$ext";
open FC, ">$fileout" or die "création de' $fileout impossible $!";
print FC "@nwcontenu";
close FC || die "fermeture de $fileout impossible $!";
END;
mais je pense qu'avec un simple substitution ça donnera pareil
