VPF::парсинг файла сессии - Форум программистов

MZ412

Дата 2.2.2010, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 4.12.2009

Репутация: нет
Всего: нет

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

Код


$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]+)'.+$/;

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

Это сообщение отредактировал(а) MZ412 - 2.2.2010, 14:22

sir_nuf_nuf

Дата 2.2.2010, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 1
Всего: 31

Вообще для этого есть 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 4.12.2009

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Регулярные выражения \| Следующая тема »