Perl中怎么处理JSON和XML数据

在Perl中处理JSON和XML数据，通常使用相应的模块来实现。以下是在Perl中处理JSON和XML数据的示例：

处理JSON数据：

1. 使用JSON模块来解析JSON数据：

use JSON;  my $json_str = '{"key": "value"}'; my $json_data = decode_json($json_str);  print $json_data->{'key'}; # 输出：value 

2. 使用JSON模块来生成JSON数据：

use JSON;  my $data = {     key1 => 'value1',     key2 => 'value2' };  my $json_str = encode_json($data);  print $json_str; # 输出：{"key1":"value1","key2":"value2"} 

处理XML数据：

1. 使用XML::LibXML模块来解析XML数据：

use XML::LibXML;  my $xml_str = 'value'; my $parser = XML::LibXML->new(); my $doc = $parser->parse_string($xml_str);  my $root = $doc->documentElement(); print $root->findvalue('key'); # 输出：value 

2. 使用XML::LibXML模块来生成XML数据：

use XML::LibXML;  my $doc = XML::LibXML::Document->new('1.0', 'UTF-8'); my $root = $doc->createElement('root'); $doc->setDocumentElement($root);  my $key = $doc->createElement('key'); $key->appendText('value'); $root->appendChild($key);  print $doc->toString(); # 输出：value 

通过以上示例，可以看到在Perl中处理JSON和XML数据的基本操作。可以根据具体需求选择合适的模块来处理不同格式的数据。