Всем БОЛЬШОЕ спасибо за помощь,
просмотрел предложенные модули, но пока больше всего понравилась идея с
регэкспом + подключил JSON,
и на данный момент получается что-то в этом роде:
$line =~ s/ID=(?=[^}]+=[^}]+})//g;
$line =~ s/NAME//g;
$line =~s/=/=>/g;
$line =~s/([\]}])/$1,/g;
eval '$struct = {' . $line . '};';
my $json_text = $json->encode($struct);
{"TYPE2":[],"TYPE1":[{"One":"Один айди"},{"Two":"Айди номер
два"},{"Some":"Еще что-то"},{"Yeah":"Вот так вот"}]}
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
