在Perl中处理XML数据可以使用XML::Simple模块,JSON数据可以使用JSON模块。下面是一个简单的示例:
处理XML数据:
use XML::Simple;
my $xml = '<data><name>John</name><age>30</age></data>';
my $data = XMLin($xml);
print "Name: $data->{name}\n";
print "Age: $data->{age}\n";
处理JSON数据:
use JSON;
my $json = '{"name": "John", "age": 30}';
my $data = decode_json($json);
print "Name: $data->{name}\n";
print "Age: $data->{age}\n";
这样就可以轻松地将XML和JSON数据解析成Perl数据结构,并进行相应处理。