30 kwiecień 2010

Odczyt xml w Perlu

#!/usr/bin/perl -w

use strict;
use XML::Simple;
use Data::Dumper;
 
my $data = XMLin('nokaut.xml');
 
print Dumper($data);