04-25-2011, 01:53 PM
|
|
|
Too lazy to set a custom title
Industry Role:
Join Date: Aug 2002
Posts: 55,534
|
Quote:
Originally Posted by Barry-xlovecam
Friend of mine did this regex:
Code:
$xml =~ s#<(performerinfo)>(.*?)</\1>
#{
my ($tmp, $data) = ($2);
$tmp =~ s|<(\w+)><!\[CDATA\[(.*?)\]\]></\1>
|{$data->{$1}=$2}|sgex;
push(@models, $data)
}#sgex;
|
perl i take it? |
|
|