Народ, как сделать на перле поиск в файле определенной строки,вернуть ее номер tell и убить все до нее.
Заранее Спасибо!!!

• RE: I need HELP!!! :(((((,Yuri A. Kabaenkov, 03:09 , 10-Мрт-01

Вот скрипт, но он не работает с тяжелыми строками.
Он не был отлажен.
Возможные сбои.
Возможен вариант грамотней, это было написано за минуту не думая.

#!/usr/bin/perl

$file = "./1.pl";
$string = "cookie_jar";
@a = ();

open (A, "<$file");
@a = <A>;
close(A);

open (B, ">$file");
$nomer = 0;
$i = 0;
foreach $a (@a) {
if ($a =~ /$string/) { $nomer = $i; }
$i++;
}

$c = 0;
foreach $b (@a) {
print B $b if ($c >= $nomer);
$c++;
}
close(B);