информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Spanning Tree Protocol: недокументированное применениеГде водятся OGRы
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Очередное исследование 19 миллиардов... 
 Оптимизация ввода-вывода как инструмент... 
 Зловреды выбирают Lisp и Delphi 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
если вы видите этот текст, отключите в настройках форума использование JavaScript
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
Элементарно 13.01.07 07:11  Число просмотров: 2505
Автор: 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=~...).
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2025 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach