![]() |
преобразование строки perl
А как следующую строку
Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVm X2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/; преобразовать к такому виду? Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVm X2lu; path="/"; domain=vasya.com; path_spec; expires="2007-01-13 11:13:05Z"; version=0 добавить это domain=vasya.com; path_spec; version=0 и поменять формат даты, кстате что значет эта буква Z на конце даты? |
допусти у тебя это в переменной $stroka а твое domain=vasya.com; path_spec;
version=0 в переменной $z3 $z1=substr($stroka,0,70) # будет 'Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVm X2lu;' $z2=substr($stroka,71,118) # будет 'expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;' и потом соединяем $gotovo="$z1$z3$z2" |
| Время: 08:33 |