كيف أقرأ ملف XML بـ Perl؟

XML:Simple ليست بالمكتبة سهلة الاستعمال، حيث يعاب عليها في كثير من الأمور التقنية، لكن يمكنك استخدامها في نهاية المطاف، الخطأ الذي اقترفته في كودك البرمجي هو استعمالك للجذر queue ، في حين كان الأجدر استعمال الابن user، هكذا:

my $users = $xml_obj->{'queue'};

ليصبح الكود كاملا على الشكل التالي:

#!/usr/bin/env perl
use strict;
use warnings;

use XML::Simple;
use Data::Dumper;

my $xml = "<queue><user>1</user><user>2</user></queue>";

my $xml_obj = XMLin($xml, forcearray => 1);

my $users = $xml_obj->{'user'};

foreach my $v (@$users){
        print $v;
}

Parse XML with Perl