Архив форумов ЦИТФорума

[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?

[shumar]

#!/usr/bin/perl
open(FH, "input.txt");
#input.txt - файл с исходным текстом
open(OH, ">cookies.txt");
print OH '#LWP-Cookies-1.0';
while ($str=<FH>){
if($str =~ m/document\.cookie\=\'(.*)\'/){
print OH 'Set-Cookie3:'.$1;
}
}

close(FH);
close(OH);

Примерно так, не факт конечно что с 1-го раза заработает

[Satell]

А как следующую строку
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 на конце даты?