Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
|
Элементарно 13.01.07 07:11 Число просмотров: 2378
Автор: Heller <Heller> Статус: Elderman
|
undef $/;
<FH>; #FH - дескриптор, из которого читаешь
@cookies=m/document\.cookie='(.+?)'/g;
После этого в массиве @cookies будут лежать выбранные подстроки. Ну а вбить их в файл в нужном формате, надеюсь, уже сам сможешь.
ЗЫ. Сам я этот код не проверял, так что за 100%-ю правильность не ручаюсь. Если мало ли будет вопить об ошибках, попробуй читать не в $_ (переменная по умолчанию), а в какую-нибудь конкретную. Я навскидку не уверен, что @arr=m// корректно отработает, но вроде должно быть нормально. Если не пойдет - замени на @arr=($temp=~...).
|
|
<programming>
|
[Perl] поиск и копирование подстроки perl 13.01.07 02:05
Автор: Satell Статус: Незарегистрированный пользователь
|
есть такой текст
<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?
|
|
Элементарно 13.01.07 07:11
Автор: Heller <Heller> Статус: Elderman
|
undef $/;
<FH>; #FH - дескриптор, из которого читаешь
@cookies=m/document\.cookie='(.+?)'/g;
После этого в массиве @cookies будут лежать выбранные подстроки. Ну а вбить их в файл в нужном формате, надеюсь, уже сам сможешь.
ЗЫ. Сам я этот код не проверял, так что за 100%-ю правильность не ручаюсь. Если мало ли будет вопить об ошибках, попробуй читать не в $_ (переменная по умолчанию), а в какую-нибудь конкретную. Я навскидку не уверен, что @arr=m// корректно отработает, но вроде должно быть нормально. Если не пойдет - замени на @arr=($temp=~...).
|
|
|
подробно о проекте
Анализ криптографических сетевых...
