read.pl

来自「perl脚本语言对XML文件进行读写的代码.」· PL 代码 · 共 24 行

#!/bin/perl -w

use strict;
use XML::Twig;

my $twig= new XML::Twig();

if(my $file= $ARGV[0]) {
	$twig->parsefile($file);
} else {
	$twig->parse(\*STDIN);
}
my $module_list= $twig->root;
my @modules= $module_list->children;

foreach my $module(@modules) {
	my $e_name = $module->first_child('name');
    my $e_description = $module->first_child('description');
    my $name = $e_name->text;
    my $description = $e_description->text;
    print "$name: \t$description\n";
}