1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| lami20j@debian:~$ cat insert2last.pl
#!/usr/bin/perl
use strict;use warnings;
open F,"fichier.txt";
open FF,">fichier_resultat";
my $n=0;
for(reverse <F>){
chomp; # suppression saut ligne
length==0?$n++:last; # compter les lignes vides
# sortir de boucle des que 1ère ligne non-vide est rencontrée
}
while(<F>){}; # pour la variable $. (nombre de lignes de fichier)
my $i=$.-$n-2; #-1 puisque index commence à zéro
#-1 pour ne pas prendre la dernière ligne non vide
seek(F,0,0); #déplacement au début du fichier
print FF ((<F>)[0..$i]),"test-test-test\n"; # tranche de liste jusque l'avant dernière ligne
# non-vide du fichier
seek(F,0,0);
print FF ((<F>)[$i+1..$i+$n+1]); # tranche de liste de la dernière ligne non-vide
# jusqu'à la fin de fichier
__END__ |
Partager