Forum Webscript.Ru

Программирование => Perl => Тема начата: Satell от 13 Января 2007, 01:44:19

Название: Поиск, выдирание подстроки на Perl
Отправлено: Satell от 13 Января 2007, 01:44:19

есть такой текст



нужно выдрать из него строчки roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;
и
fav=1168600385; expires=Sat, 12 Jan 2008 11:13:05 GMT; path=/;

и записать в такой файл cookies.txt с таким содержанием

#LWP-Cookies-1.0
Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;

Set-Cookie3: fav=1168600385; expires=Sat, 12 Jan 2008 11:13:05 GMT; path=/;


как это сделать на Perl?

Название: Поиск, выдирание подстроки на Perl
Отправлено: arto от 13 Января 2007, 02:08:45

m#document\\.cookie=\'(.+?)\';#

Название: Поиск, выдирание подстроки на Perl
Отправлено: Satell от 15 Января 2007, 22:13:33

А как следующую строку
Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;

преобразовать к такому виду?

Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; path="/"; domain=vasya.com; path_spec; expires="2007-01-13 11:13:05Z"; version=0

добавить это
domain=vasya.com; path_spec;
version=0

и поменять формат даты, кстате что значет эта буква Z на конце даты?

Название: Поиск, выдирание подстроки на Perl
Отправлено: arto от 15 Января 2007, 22:58:34

perldoc Time::Local
perldoc POSIX на предмет strftime