Все стандартные функции Perl не возвращают время до долей секунд
А как этого добиться?
Изучил реализацию сессий на PHP, предложенную Mal Hack`ом и решил на Perl`e модуль написать. Но в PHP доли секунд функция возвращает а в Perl`e нет.
Помогите.

Можно получить с помощью syscall, только на тех платформах, где она поддерживается. А можно заюзать модуль Time::HiRes. Сейчас проснусь немного и приведу пример. Если не секрет, объясни зачем для сессий нужны доли секунд????

Суть такая:
Прочитал я эту статью, вдохновился и сейчас пишу модуль управления сессиями(регистрации/авторизации). Так вот Mal Hack для генерации SID использует одним из параметров текущее время создания сесии до долей секунд. Система хороша тем, что не передает сам SID только имя пользователя и это текущее время.

Вот поэтому так важны доли секунд!

Цитата

getmicrotime(); - возвращает время с дробными частями секунды (нужно для получения уникального времени регистрации).

Насколько я понял, это нужно для уникальности. Я писал следующим образом:
1. Генерирую псевдо случайную строку цифр, например из 30 цифр.
2. Затем вычисляю текущее время, с помощью time()
3. Пишу подпрограмму, котой передаю 2 параметра, первый - наша слуйная строка цифр, второй текущее время.
4. В подпрограмме случайная строка разбивается на 2 части, а затем соединяется обратно, только в середину встявляется текущее время в секундах, с начала эпохи.
5. Вот эта строка чисел и возвращается.

Как ты понимаешь, шансов на совпадение такого SID, практически нет и не нужно никаких стронних модулей и зависимостей от платформы. Пример приведу чуть позже, я уже напился.

Это сообщение отредактировал(а) korob2001 - 5.5.2005, 19:09

Вот пример, моего способа:

Код

#!/usr/bin/perl -w use strict; my($sid, %dbm ) = (); sub gen_str {     my $col = shift || 40;     my @nums = ( 0..9 );     my $str = join("", @nums[ map { rand @nums }( 1..$col ) ] );     return $str; } sub unique_sid {     my $str = shift || gen_str();     my $tm  = shift || time();     my $mid = length( $str ) / 2;     $str = substr( $str, 0, $mid ) . $tm . substr( $str, $mid );     return $str; } dbmopen( %dbm, "mydbm", 0644 ) or die $!; while ( 1 ) {     $sid = unique_sid();     print "$sid\n";     last if exists( $dbm{ $sid } );     $dbm{ $sid } = 0; } dbmclose( %dbm ); print "Повторился ID: $sid\n";

ВНИМАНИЕ!!!!
Цикл закончится только в двух случаях:
1. Если закончится дисковое пространство.
2. Если SID повторится.

ЗЫ: Уменя ещё никогда не повторился.
О долях секунд, я обязательно напишу, просто я сейчас не дома. Перебежками подбегаю к компу.

Удачи.

Это сообщение отредактировал(а) korob2001 - 5.5.2005, 21:57

Пока модератор недополз

Код

use Time::HiRes qw(time);      my $time = Time::HiRes::time;     # код на выполнение    my $time1 = Time::HiRes::time - $time;   print "Время выполнения скрипта: $time1";

Это был плагиат ;)

Единственное, что хочу подправить:

Код

#!/usr/bin/perl -w use strict; use Time::HiRes qw(time); my $time = Time::HiRes::time; print $time;

Ему просто не нужно узнать время выполнения скрипта, это необходимо для уникальности SID. Но всё равно спасибо, если нужно узнать время выполнения, то проще воспользоваться times().

Это сообщение отредактировал(а) korob2001 - 6.5.2005, 11:28

Огромное спасибо!
Воспользуюсь твоим, korob2001, примером.
Но по мимо этого в SID всетаки нужно довавить и IP и UserAgent.
Будет более надежно. И потом для статистики полезно.

Как закончу модуль, отдам на тестирование, если вы не против.
Это мой первый серьезный модуль. Надо будет его как следует сделать. Но опыта у меня моловато.
Буду надеется на вашу помощь.

Цитата

Как закончу модуль, отдам на тестирование, если вы не против.

Думаю никто против не будет, нет ничего плохого когда человек пытается создать что-то своё, такие идеи только поддерживаются. Главное желание и терпение и всё у тебя получится.
Удачи тебе

Это сообщение отредактировал(а) korob2001 - 7.5.2005, 03:52

Чтобы не плодить темы решил написать здесь.

Цитата

если нужно узнать время выполнения, то проще воспользоваться times()

Как раз это мне и нужно, только не пойму принцип работы.
Вот простенький пример, но почему-то он выводит одно и тоже время.

Код

#!/usr/bin/perl for ($i=0;$i<3;$i++)  {sleep(1);   print join(':',times),"\n";}

0.015:0.031:0:0
0.015:0.031:0:0
0.015:0.031:0:0

Заранее благодарен за посильную помощь.

Usya - проблема в том, что у тебя times() используется в списковом контексте. Она возвращает общее время в течении которого пользователь и сисстема занимали центральный процессор. Ты можешь один раз получить данные в списковом контексте и получишь время работы программы:

Код

#!/usr/bin/perl -w use strict; my $work = 10000000; while ( $work > 0 ) {         --$work; } printf ("Пользователь процесс и его потомки занимали CPU: %0.3f сек.", (map {$work += $_} ( times )  ) );

Если тебе нужно узнать, сколько отработала часть кода, тогда юзай times в скалярном контексте.

Это сообщение отредактировал(а) korob2001 - 2.11.2005, 20:37

Спасибо, но я так и не смог получить того, что хотел

1) Код

Код

#!/usr/bin/perl for ($i=0;$i<3;$i++)   {     sleep(1);     $work = 1000000; while ( $work > 0 ) {$work--;}     print join(':',times),"\n";   }

выдает
0.234:0.015:0:0
0.484:0.015:0:0
0.718:0.015:0:0
Так что скалярный контекст похоже тут не причем... Результат и в списковом изменяется.

2) sleep-относится к системному времени или пользовательскому и почему ни то, ни другое не зависит от sleep?
Даже простой код

Код

#!/usr/bin/perl sleep(2); print join(':',times),"\n";

Выдает
0.015:0.015:0:0

Usya

Цитата(Usya @ 3.11.2005, 20:35)

sleep-относится к системному времени или пользовательскому и почему ни то, ни другое не зависит от sleep?

perldoc -f sleep

Цитата

Даже простой код #!/usr/bin/perl sleep(2); print join(':',times),"\n"; Выдает 0.015:0.015:0:0

Ну правильно, ты сначала засыпаешь, а потом выдаешь время.
Зачем ты используешь times, используй Time::HiRes::time - очень удобно.

Цитата(Usya @ 3.11.2005, 20:35)

Так что скалярный контекст похоже тут не причем

Ты разве использовал скалярный контекст?
Скалярный контекст - это либо

Код

print times;

либо

Код

print scalar times;

sharq

Цитата

Ты разве использовал скалярный контекст?

Нет, так я и не говорю про это. Просто korob2001 написал, что

Цитата

Ты можешь один раз получить данные в списковом контексте и получишь время работы программы

а здесь по ходу дела и в списковом изменяется.

Цитата

1) perldoc -f sleep 2) Ну правильно, ты сначала засыпаешь, а потом выдаешь время. 3) Зачем ты используешь times, используй Time::HiRes::time - очень удобно.

Вот здесь, если не трудно, немножко поподробнее.
1) Может мой "великий" английский дает о себе знать, но я там не нашел ответа на свой вопрос.
2) По-моему логично. Проспав две секунды скрипт должен мне выдать, сколько времени прошло с момента запуска. Я же не наоборот написал.
3) Если с этим не получится, тогда попробую, а пока хочется разобраться в чем загвоздка.

А что именно не понятно?
Если тебе нужно вычислить время работы отдельного участка программы, то используй Benchmark:

Код

#!/usr/bin/perl -w use strict; use Benchmark; my $start = new Benchmark; my $r = 0; go(); sub go {     for ( 1..100000 ) {         $r += 1;         print $r, "\n";     } } my $res = timediff( new Benchmark, $start ); print "Cicle work " . timestr( $res ) . ".";

Если нужны доли секунд, TimeHiRes.

А вот что написано в "Программирование на Perl", по поводу times()

Цитата

В списковом контексте эта функция возвращает список из четырёх элементов, которые дают время в секундах ( возможно, дробное ), в течении которого пользователь и система занимали CPU, для данного процесса и его завершившихся дочерних процессов. ($user, $system, $cuser, $csystem) = times(); printf "Данный pid и его потомки использовали %.3f секунд\n", $user + $system + $cuser + $csystem; В скалярном контексте функция возвращает просто время работы пользователя. Например, для измерения времени выполнения фрагмента кода Perl: $start = times(); ... $end = times(); printf "Это заняло %.2f секунд использования CPU\n", $end - $start;

Это сообщение отредактировал(а) korob2001 - 8.11.2005, 00:55

Мне хотелось бы отдельно получить системное и пользовательское время. times() позволяет это делать, но почему некорректно работает вышеприведенный код?

Код

#!/usr/bin/perl for ($i=0;$i<3;$i++)   {     sleep(1);     $work = 1000000; while ( $work > 0 ) {$work--;}     print join(':',times),"\n";   }

На выходе имеем
0.234:0.015:0:0
0.484:0.015:0:0
0.718:0.015:0:0
Почему не учитывается sleep(1)? И что вообще учитывается, а что нет???

А вопрос возник в связи со следующей проблемой. Если не вдаваться в подробности, то можно сказать так - в одном из своих скриптов я написал

Код

... print '<p class=txtc> Время генерации скрипта: '.(join(':',times)).' сек</p>'; print '<p class=txtc> Время генерации скрипта: '.(time-$start).' сек</p>'; ...

На выходе получаю
...
Время генерации скрипта: 1.89:0.07:0:0 сек
Время генерации скрипта: 7 сек
...
либо что-то в этом роде.

Никаких sleep-ов у меня правда нет, но в чем проблема в такой разнице понять не могу...

Цитата(Usya @ 8.11.2005, 19:48)

Время генерации скрипта: 1.89:0.07:0:0 сек Время генерации скрипта: 7 сек

Если ты не правильно поставил постфикс у числа это не значит, что скрипт не правильно работает!

Все правильно отработало, всего за 0.07 секунд. И ни какой разницы нет.

Функция times, точнее ее второй элемент в списке выдает системное время отработки скрипта, а не время отработка в текущий момент, поэтому хаваются три твоих слипа и только потом печатается одно и тоже время. В этом случаю нужно использовать функцию time!

И зачем делать слип и цикл, который по своей сути делает слип?


Надеюсь, поймешь, в чем смысл на этом примере.

Код

use Time::HiRes 'time'; my $start = time(); foreach (1..3) {     1 foreach 1..1000;     print "Time:  ", sprintf("%f", time()-$start), "\n";     print "Times: ", join(':',times),"\n"; }

Код

Time:  0.004911 Times: 0.093:0.015:0:0 Time:  0.005261 Times: 0.093:0.015:0:0 Time:  0.005452 Times: 0.093:0.015:0:0

Это сообщение отредактировал(а) sharq - 8.11.2005, 20:26

Кажется начал разбираться!!!!!!!!!!!!!
Правда не все пока еще гладко. В отношении результатов последнего кода - если неправильно, поправьте
1) 1.89 сек - пользовательское время
2) 0.07 сек - системное время
3) 7 сек - фактическое время
4) время у sleep (в тестовом примере) возможно не относится ни к пользовательскому ни к системному, хотя с этим еще не до конца разобрался. Возможно я не прав.

Фактическое время не всегда равно пользовательскому + системному http://www.regatta.cs.msu.su/doc/usr/share...ngd/2365c62.htm, поэтому korob2001

Цитата

если нужно узнать время выполнения, то проще воспользоваться times()

times() подойдет только сравнения времени работы скриптов (например при оптимизации кода) или для оценки времени работы так сказать в идеале в однопроцессорной системе. Для оценки фактического времени times не подойдет.

sharq
Я не совсем понял некоторые утверждения

Цитата

Если ты не правильно поставил постфикс у числа это не значит, что скрипт не правильно работает! Все правильно отработало, всего за 0.07 секунд. И ни какой разницы нет.

В своем скрипте, когда приводил пример, я не использовал Time::HiRes и время time(), соответственно, измерялось в секундах. При этом это и есть фактическое время выполнения скрипта (при запуске оно прыгало от 2-х и до 8 сек), 0.07 получается - это только системное время.
Кстати, что ты имел в виду под постфиксом? С этим я сталкивался только у декремента и инкремента.

Цитата

Надеюсь, поймешь, в чем смысл на этом примере.

Этот пример можно трактовать по-разному. Поясни в двух словах, что именно ты хотел показать?

Да и еще, sleep в своем коде поставил, чтоб показать, что от него ничего не зависит...
А на счет системного времени ты скорее всего прав. Пользовательское изменяется, а системное нет и не важно в списковом контексте выводятся данные или в скалярном.

Хочу обратить внимание на одни спрятанные в траве грабли Мы на них случайно наткнулись в своем проекте. Грабли касаются функции time и модуля Time::HiRes в частности, суть их в том, что этот модуль ориентируется на стандартное юниксовское время, т.е. на количество секунд (микросекунд) прошедших с 1970 года (дату не помню, по моему 1-е января). Дык вот, можете проверить. Напишите простенький скрипт в котором меряется и выводится интревал времени, например:

Код

use strict; use warnings; use Time::HiRes qw( time ); print "Start: ",time(),"\n"; sleep 30; print "Finish: ",time(),"\n";

А пока скриптик будет "спать" переведите системное время на полчасика вперед. Дополнительно хочу заметить что на многих серверах коррекция системного времени производится автоматически через timeservers по крону, так что вопрос о том насколько вероятно изменение системного времени не стоит. Возможно для сессий это окажется не критично, но знать о такой "фиче" не вредно
Вот уже после написания узнал, что наши списались с разработчиком модуля Time::HiRes и он добавил в следующую версию дополнительную функцию clock_gettime() которая, будучи вызвана с константой CLOCK_MONOTONIC, вернет правильный интервал

Это сообщение отредактировал(а) Kiber_rat - 9.11.2005, 01:10

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