Поиск и выдирание текста на Perl
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Поиск и выдирание текста на Perl - 2007-01-13 01:51:31.403333
|
|
|
Satell
Сообщений: 16
Оценки: 0
Присоединился: 2007-01-13 01:48:42.526666
|
есть такой текст
<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?
|
|
|
|
|
RE: Поиск и выдирание текста на Perl - 2007-01-13 16:14:56.160000
|
|
|
EcSYZ
Сообщений: 27
Оценки: 0
Присоединился: 2007-01-12 03:15:42.200000
|
@page - тут к примеру будет пага
Примерно так:
#!/usr/bin/perl
my (@page,$str);
...
open(FILE,">cookies.txt");
print FILE '#LWP-Cookies-1.0';
foreach $str(@page)
{
$str=~/document[\.]cookie[\=][\'](.*)[\'][\;]/;
print FILE "Set-Cookie3: $1\n";
}
close(FILE);
|
|
|
|
|
RE: Поиск и выдирание текста на Perl - 2007-01-15 22:24:10.530000
|
|
|
Satell
Сообщений: 16
Оценки: 0
Присоединился: 2007-01-13 01:48:42.526666
|
А как следующую строку
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 на конце даты?
|
|
|
|
|
|
