Parsing XML with Perl in Three Lines

《老何的1001夜》, Qunar colleagues know it

Easy things

Only three lines of program are needed to read an XML file using Perl's XML::Simple module.

use XML::Simple;
use utf8; # enable UTF‑8 identifiers
binmode STDOUT, ":utf8"; # optional
my $xmlref = XMLin('/path/to/your/xml/file.xml');
while ((my $province, my $province_properties) = each %{$xmlref->{country}{'中国'}{province}}) {
    print $province, "
";
}

The snippet demonstrates how to load the XML into a Perl data structure and iterate over provinces, allowing further processing of city and district information.

Article originally from the company wiki “老何的1001夜”; Qunar colleagues can log in to the wiki for more articles.