Re,

On utilise le tableau spécial @ARGV

#!/usr/bin/perl -i.orig
use strict;use warnings;

@ARGV=("/chemin/vers/fichier1", "/chemin/vers/fichier2");

while(<>){
print "$_" for 289 .. eof();
}
__END__

Tu lances avec la commande perl /chemin/vers/suppr_lignes.pl
--
106485010510997108