random из массива

[AnnA]

Всем приветик!

есть некий массив @mass
при наличии некой переменной $val создаем массив @arr из имеющегося @mass:
if ($val) { @arr = grep { (split /\\x01/)[5] =~ /$val/i } @mass; }

а теперь собственно рандомом вытаскиваем строку:

my ($id,$var1,$var2,$var3,$var4,$var5,$var6)=split /\\x01/, $mass[int rand(@mass)];

и вот какой вопрос:

какие есть пути решения оперативненько подставлять имя массива здесь: $mass[int rand(@mass)];

я решила так:my ($id,$var1,$var2,$var3,$var4,$var5,$var6) =
scalar(@arr)>2?split /\\x01/, $arr[int rand(@arr)]:split /\\x01/, $mass[int rand(@mass)];

но мне кажется, что это можно сделать как-то еще проще и вот интересно - как.

[AnnA]

там есть экранирующий слэш перед х01 порсто чего-то форум его не показал.
ух тышка!! подпись появилась!

[AnnA]

чиво? глупость что ль  опять спросила?
ну хорошо. тогда еще вопрос.
@mass этот - он огромный! 45Мб!..
.....
шутка. не 45 конечно. но все равно большой.
можно ли как-то, не втягивая весь в файл массив, "дёрнуть" случайную строчку? Нет? наверное нельзя, да?
Ну ладно. Всем хороших выходных.

[arto]

perldoc -q "How do I select a random line from a file?"

а что за задача-то такая ужасная?

[Phoinix]

AnnA

можно ли как-то, не втягивая весь в файл массив, "дёрнуть" случайную строчку? Нет? наверное нельзя, да?

AFAIK примерно так:

#!/usr/bin/perl

use strict;

my $rand = int(rand([Число строк в файле]) + 1);
my $line;
my $i = 1;
open (FILE, \'./text.txt\');
while (<FILE>) {
    if ($i > $rand) {goto CLOSE_FILE}
    $line = $_;
    $i++;
}
CLOSE_FILE:
close FILE;

print $line;


Единственно, конечно желательно знать количество строк в файле...

[AnnA]

извините. только сегодня вот смогла ответить.
спасибы.
Phoinix вот у меня пирмерно такой же вариант появился, но только я сначала делала рандом из массива, предварительно созданного: @mass=(0..$кол-во записей в массиве);
т.е.  Вы правы:

Phoinix:
желательно знать количество строк в файле

а это как-то... не очень красиво.

arto:
perldoc -q "How do I select a random line from a file?"

Здоровско! И почему я сама не додумалась в FAQ заглянуть?
Вы, наверное наизусть его знаете, да?

arto:
а что за задача-то такая ужасная?

ну ладно Вам глумиться... Задача такая и была: либо из одного массива брать произвольную строчку данных, либо, если наличествует образец поиска, - сделать выборку из первого массива по этому образцу. и теперь уже из этой выборки  взять произвольную строчку данных. Запутано, да, написала?
В любом случае - спасибо Вам еще раз за то что ткнули меня носиком в нужное место.