быстрое чтение файла

[Yaroslav]

какой из вариантов более приемлемый:
скриптик должен открывать файл и искать в нем нужный номер $idold. все остальные сообщения вывести.
Предполагается что в файле будет записей не больше 30, но запрос на его вызов будет 30 раз в сек.

Код: [Выделить]


open (LIST,"chat_list.tmp");
flock(LIST, LOCK_SH);
while () {
   ($id,$time,$fromuser,$touser,$mess)=split(/\\|/);
   if ($id>$idold) { print "$id,$time,$fromuser,$touser,$mess\\n"; }
}
close(LIST);


или

Код: [Выделить]


open (LIST,"chat_list.tmp");
flock(LIST, LOCK_SH);
@list=;
close(LIST);
($id,$time,$fromuser,$touser,$mess)=split(/\\|/, $list[0]);
if ($id<$idold) { $idnew=$idold-$id; }# высчитали с какой строчки выводить
else { $idnew=0; }
foreach $idnew (@list) {
   ($id,$time,$fromuser,$touser,$mess)=split(/\\|/, $list[$idnew]);
   print "$id,$time,$fromuser,$touser,$mess\\n";
   $idnew++;
}


может я вообще перехимичил?

[NeoNox]

Визуально первый предпочтительнее, хотябы только потому что не идет считывание всего фала в лишний массив.
perldoc Benchmark

[2NetFly]

($id,$_,$_,$_,$_)=split(/\\|/);

Это новый стиль программирования на перл? Я имею в виду использование магической $_?

[Yaroslav]

2NetFly:
Это новый стиль программирования на перл? Я имею в виду использование магической $_?

это что б е забивать голову вам и было наглядней

[2NetFly]

Перлдок не рекомендует явное присваивание магическим переменным, особенно $_. Это может стать причиной сложно обнаруживаемых ошибок.

[Yaroslav]

2NetFly:
Перлдок не рекомендует явное присваивание магическим переменным, особенно $_. Это может стать причиной сложно обнаруживаемых ошибок.

я же говорю, это я для вас сделал
кстати, раз уж тут поднялся этот вопрос. а что есть альтернатива $_ ?

вопрос о скорости и вариантах остается открытым.

[2NetFly]

Что значит альтернатива?

А касательно скорости NeoNox уже ответил. Первый вариант правильнее, т.к. ты работаешь только с текущей строкой файла. Считывать в массив весь файл - это лишние, в данном случае ненужные, телодвижения.

[Green Kakadu]

Yaroslav:
вопрос о скорости и вариантах остается открытым.

во втором примере (правда не меняет \'|\' на запятую - может просто сразу в файл писать разделитель запятую)

open (LIST,"chat_list.tmp");
flock(LIST, LOCK_SH);
@list=;
close(LIST);
($id,undef,undef,undef,undef)=split(/\\|/, $list[0]);
if ($id<$idold) { $idnew=$idold-$id; else { $idnew=0; }
my @spisok = map {s/^\\d+?\\|//&&$_} @list[$idnew..$#list];

ээ а если забить на удаление id, то просто выводи
 @list[$idnew..$#list]; - самый быстрый вариант

[Green Kakadu]

2NetFly:
А касательно скорости NeoNox уже ответил.

вопрос спорный, т.к. в первом случае идет проверка для каждой строки

 if ($id>$idold)
и при этом все равно перебирается весь массив

[Yaroslav]

Green Kakadu:
во втором примере (правда не меняет \'|\' на запятую - может просто сразу в файл писать разделитель запятую)
my @spisok = map {s/^\\d+?\\|//&&$_} @list[$idnew..$#list];

немножко не то...
мне потом этот @spisok разделить надо будет на ($id,$_,$_,$_,$_)=(номер, дата, от кого, кому, сообщение)

[2NetFly]

($id,undef,undef,undef,undef)=split(/\\|/, $list[0]);

Эм, а undef зачем? =)

($id) = split(/\\|/, $list[0]);
или так
$id = (split /\\|/, $list[0])[0];

А вообще, я что-то с трудом понимаю, что делает код, описанный в перовом посте. Особенно, то место, где в @spisok добавляется много-много $_ ;=)

[2NetFly]

Если ты хочешь, чтоб тебе помогли, опиши рабочий код, а не специально "для нас" испорченный. Ну не будет у тебя работать конструкция:
($id,$_,$_,$_,$_)=(номер, дата, от кого, кому, сообщение)
В данном случае, в $_ окажется сообщение, а push (@spisok,"$_,$_,$_,$_") добавит в список не то, что ты хотел.

[Green Kakadu]

Yaroslav:
мне потом этот @spisok разделить надо будет на ($id,$_,$_,$_,$_)=(номер, дата, от кого, кому, сообщение)

ээ, так в каком формате должна быть строка в @spisok с id или без него?
если вопрос в том чтоб из "|" сделать ","
то
my @spisok =map {tr/\\|/,/&&$_} @list[$idnew..$#list];

[Green Kakadu]

2NetFly:
Если ты хочешь, чтоб тебе помогли, опиши рабочий код, а не специально "для нас" испорченный.

это наверное чтоб мы гениальный замысел программы не прознали

[Green Kakadu]

Yaroslav:
но запрос на его вызов будет 30 раз в сек.

нехилая частота. а как часто он будет обновляться?
может имеет смысл убрать flock?