Perl Monastery
Perl Official Site
Macintosh news site (italian resource)
####
#!/usr/bin/perl
use strict;
use XML::Simple;
use Data::Dumper;
my $bookmark = XMLin( './links.xml' );
# print Dumper( $bookmark );
# Data structure conversion
my $bookmark_by_category = {};
foreach my $n (keys %{$bookmark->{link}}) {
push @{ $bookmark_by_category->{ $bookmark->{link}->{$n}->{'category'} }}, {
'Name' => $n,
'Url' => $bookmark->{link}->{$n}->{'url'},
'Description' => $bookmark->{link}->{$n}->{'description'},
};
}
print Dumper( $bookmark_by_category );