perl - XML::Smart 是否有 XMLout 类型的命令？

Question

我有一个用 XML::Simple 打开的 xml 文件，现在我想用 XML::Smart 打开它

那么有没有办法可以在 XML::Smart 中打印它

print XMLout( \%clean_xml, NoAttr => 1, RootName => $root_key, XMLDecl => 1 );

谢谢

Answer 1

从 POD：创建 XML 数据

## Create a null XML object:
my $XML = XML::Smart->new() ;

## Add a server to the list:
$XML->{server} = {
os => 'Linux' ,
type => 'mandrake' ,
version => 8.9 ,
address => '192.168.3.201' ,
} ;

## The data now:
## <server address="192.168.3.201" os="Linux" type="mandrake" version="8.9"/>

## Or save it directly:
$XML->save('newfile.xml') ;