Разделение списка ссылок (perl)

[Ustas]

Кто-нибудь пробовал сделать на perl разделение ссылок, получаемых в

http://188.72.80.13/code.php?user=юзер&host=площадка

и представление их в формате тектового файла

страница1
ссылка1<разделитель>ссылка2<разделитель>ссылка3
страница2
ссылка1<разделитель>ссылка2<разделитель>ссылка3
...
пока у меня что-то регулярные выражения под ";a:5:{i:0;s:119:" не складываются

?

[Skybee]

там выдается сериализованный массив. т.е. его нужно привести в нормальный вид, а дальше все просто

[Ustas]

Вот на приведении в нормальный вид я и застрял, из подручных инструментов только perl ...

[zhegloff]

http://hurring.com/scott/code/perl/serialize/

Добавлено через 5 минут
Ustas, а чем не подходит стандартный код для перла??

[Ustas]

Спасибо!

P.S. У меня уже есть модуль выгрузки на статичные сайты, надо к нему привязяться

Добавлено через 17 минут
Все оказалось не так просто... в http://hurring.com/scott/code/perl/serialize/ нет модуля serialize.pm

Добавлено через 14 минут
Нашел стандартный serialize.pm, заработало

Добавлено через 14 часов 34 минуты
Самый простой способ оказался таким:

while( length $in >0 )
{
($n)=$in=~/[^s]*..(\d+).*/;
$k = substr $in, (1+index $in, "\""), $n;
if( $k eq "__sape_new_url__" ) { last; }
if($flag || substr($k,0,1) eq "/")
{
$flag=1;
if(substr($k,0,1) eq "/" || substr(@res[$#res],0,1) eq "/") { @res[$#res+1] = $k; } # положить объект в массив, новая страница
else { @res[$#res].= $separator.$k; } # продолжить строку ссылок
}
$in = substr $in, 3 + $n + index $in, "\""; # удалить обработанное начало сериализованной записи
}