Вопрос к знатокам, есть ли возможность читать именно определнное количество строк из обычного файла без цикла и без подобного кода:
@bd=<R_FILE>;

и без цикла к примеру
for($i=1;$i<=4;$i++){
$bd[$i]=<_R_FILE>;
}

???
можно? есть варианты?

Можно. Если сделать строки фиксированной длины. [img]images/smiles/icon_smile.gif[/img]

с фиксированной да [img]images/smiles/icon_smile.gif[/img] представляю...

но строки не фиксированные [img]images/smiles/icon_sad.gif[/img]

Чудес не бывает.

Может тебе split поможет? Смотри документацию по Перлу. [img]shuffle.gif[/img]

нет, со сплитом мы уже дааавно знакомы

Я делаю так

my $doc;

if (open(TEMPL, "<../adm/index.dat"))
{
my @lines = <TEMPL>;
$doc = join "", @lines;
undef @lines;
close TEMPL;
}

усли мне надо весь файл в переменную загнать думаю не сложно догадаться что достаточно делать какой нть $count++;
а потом его сверять.…

Вот вам и нужное кол-во строк [img]images/smiles/icon_biggrin.gif[/img]

Timon, ты невнимательно читал постановку задачи. Очень невнимательно. [img]images/smiles/icon_smile.gif[/img]

Ой и вправду [img]images/smiles/icon_smile.gif[/img]
Вот за это и не любит меня начальство [img]images/smiles/icon_smile.gif[/img]

Отвечаю нет нельзя по моему.…
Ой ща посмотрел и понял что что-то я торможу сегодня [img]images/smiles/icon_razz.gif[/img]

ок, всем спасибо, понял...
жаль конечно...