linux - 10行からファイルの最後までの行を削除するperlスクリプトを作成しようとしています

Question

vim を使用してファイルの行を削除する Perl スクリプトを作成しようとしています。これらの行を何度も削除する必要があるため、このタスクを自動化したいと考えています。これまでに書いたスクリプトは次のとおりですが、機能していません。

#!/usr/bin/perl 
my $PROG        = 'hwdr';
my $PERS        = "/u/blh/scripts/70-persistent-net.rules";
open (IN, $PERS) || die "Cannot open file".$PERS."for read";
@lines = <IN>;
close IN;

open (OUT, ">", $PERS) || die "Cannot open file. Please run as root".$PERS."for write";
foreach $line (@lines)
{
    $line =~ 8,10d ;
    print OUT $line;
}

close OUT;

助けてくれてありがとう

Answer 1

使ってみてsed

sed -i '10,$d' file