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 から: CREATING-XML-DATA

## 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') ;