Удаление n-ой строки

доброго времени суток.

Каким образом можно удалить n-ую строку?
Либо удалить строки с 1 по 10(как пример).

Спасибо

Сообщение отредактировано: requiroverus - 14.12.10, 05:02

Строку откуда?
Текстовый файл?

Примерно так:

#!/usr/bin/perl -w
 
my $i;
my $c;
$c = 0;
open(my $fh, '>', "somefile.txt") or die $!;
while( defined( $i = <fh> ))
{
if( $c = 10 )
{
удаляем строку;
}
$c++;
}
close( fh );

Вот такой вот кривейший алгоритм, ага. Упрощяется удалением ненужной переменной и гроханием if =)
За подробным решением есть раздел "Помощь студентам".

perl -ne 'print unless $. >= 1 && $. <= 10' filename.txt