форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"поиск и копирование подстроки из текста Perl"

Сообщение от Satell (ok) on 13-Янв-07, 02:00

есть такой текст <script language="javascript" type="text/javascript"> <!-- document.cookie='roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;'; document.cookie='fav=1168600385; expires=Sat, 12 Jan 2008 11:13:05 GMT; path=/;'; //--> </script> нужно выдрать из него строчки 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?

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Сообщения по теме

[Сортировка по времени, UBB]

1. "поиск и копирование подстроки из текста Perl"

Сообщение от Serge (??) on 13-Янв-07, 10:18

#!/usr/bin/perl open (ST, "< ./text") or die ; while (<ST>) { print "$2 \n" if /document.cookie=(['])(.*?)\1/ ; }

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	2. "поиск и копирование подстроки из текста Perl"
	Сообщение от Satell (ok) on 15-Янв-07, 22:31
	сенкс А как следующую строку 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 на конце даты?
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	3. "поиск и копирование подстроки из текста Perl"
	Сообщение от Аноним on 18-Янв-07, 18:46
	perldoc perlre
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]