Как в перл удалить последние n-строк из переменной..

$N = 3; # сколько строк отсечь
$a = "\n1\n2\n3\n4\n5\n";
$a = substr( $a, 0, rindex( $a, "\n") ) for (1 .. $N);
print $a;

$b=4;
$a="123\n234\n345\n456\n567\n678\n789\n";
$a =~ s/(\n.*?){$b}$//;
print "$a";

$cat 1.pl
#!/usr/bin/perl
$b=1;
$a="123\n234\n345\n456\n567\n678\n789\n";
$a =~ s/(\n.*?){$b}$//;
print "$a";

$ ./1.pl
123
234
345
456
567
678
$

т.е. $b = 1, а удалены последние 2 строки.

Спасибо, наглость наверное, но если не сложно, то точно так же, с удалением первых n строк как будет?

з.ы. Мне до понимания regexp-ов далеко, но буду учиться.

>т.е. $b = 1, а удалены последние 2 строки.

Разве, мне кажется всё верно удалилось.

$a =~ s/(.*?\n){$b}$//; -- удалить посл. N строк $a =~ s/^(.*?\n){$b}//; -- удалить первые N строк

Форматирование


$a =~ s/(.*?\n){$b}$//;  -- удалить посл. N строк
$a =~ s/^(.*?\n){$b}//;  -- удалить первые N строк