Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Регулярные выражения > парсинг файла сессии

Автор: MZ412 2.2.2010, 14:17

Есть файл сессии примерно такого содержания:

Код


$D = {'_SESSION_ID' => '718243bf1d84cddd7865b9979ec5b720','_SESSION_ATIME' => 1265108575,'_SESSION_REMOTE_ADDR' => '8.8.8.8','-status' => 'logged','_SESSION_CTIME' => 1265108575};;$D

Требуется извлечь значения _SESSION_ID, _SESSION_ATIME и -status.
Делаю это так:

Код


<FILE> =~ m/^.+'_SESSION_ID'\s=>\s'([a-z0-9]+)','_SESSION_ATIME'\s=>\s([0-9]+),'_SESSION_REMOTE_ADDR'\s=>\s'[0-9.]+','-status'\s=>\s'([a-z]+)'.+$/;

Не подскажете, какие моменты я не оптимизировал? Возможно не стоит опираться на именование параметров, для которых извлекаются значения?

Автор: sir_nuf_nuf 2.2.2010, 14:46

Вообще для этого есть CGI::Session
Но если охота руками, то

Код


my $str = <<<DATA;
$D = {'_SESSION_ID' => '718243bf1d84cddd7865b9979ec5b720','_SESSION_ATIME' => 1265108575,'_SESSION_REMOTE_ADDR' => '8.8.8.8','-status' => 'logged','_SESSION_CTIME' => 1265108575};;$D
DATA
my $session = eval $str || {};
print $session->{_SESSION_ID}, $session->{_SESSION_ATIME}, $session->{'-status'};

Автор: MZ412 3.2.2010, 13:05

Вопрос решился более внимательным прочтением доки по CGI::Session.