Все стандартные функции 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) Если с этим не получится, тогда попробую, а пока хочется разобраться в чем загвоздка.