如何將Moose對象序列化爲XML？

Question

我有一堆遺留模塊，我想轉換爲駝鹿爲基礎。這些模塊目前有「toXML」方法，這些方法使用XML :: LibXML進行手動編碼。

有沒有模塊或技術用於序列化駝鹿對象到XML？

我看過MooseX :: Storage，但它處理JSON，YAML和存儲，而不是XML。谷歌搜索Moose和XML會產生大量對XML :: Rabbit的引用，這似乎很適合將XML解析爲Moose類，但沒有太多將Moose對象和序列化到XML的方法。

在http://grokbase.com/t/perl/moose/11akp809sr/java-annotation-net-attributes-in-moose 6歲的線程是非常接近我想要做的，但似乎沒有任何後續行動。

Answer 1

的MooseX::Storage使用MooseX::Storage::Format::JSON作用，這是如何在其他格式插入一個很好的例子JSON數據序列化。我看不到任何XML序列化的角色，但很容易編寫自己的模塊，並且模塊爲它提供了一個鉤子。

這個小例子，展示瞭如何編寫一個作用和消耗（使用）它的一類。角色是一種類似於類的包，它永遠不會自行實例化，而是被使用它的類吸收。它可以被多個類使用。最後展示瞭如何將新角色掛接到MooseX::Storage，從而在班級中使用該角色。

它使用XML::Dumper進行序列化本身，主要作爲自定義代碼的佔位符（如果需要）。

Point.pm

package Point;  

use Moose; 

use overload q("") => sub { 
    my $self = shift; 
    return '(' . $self->x . ', ' . $self->y . ')' 
}; 

has 'x' => (is => 'rw', isa => 'Int', required => 1, default => 0); 
has 'y' => (is => 'rw', isa => 'Int', required => 1, default => 0); 

with 'SerializeXML'; 

sub BUILD { print "Created a Point $_[0]\n" } 

__PACKAGE__->meta->make_immutable;  
1; 

這裏唯一的具體語句行with 'SerializeXML';

SerializeXML.pm

package SerializeXML; 

use Moose::Role;  
use XML::Dumper; 

sub to_xml { 
    my ($self) = shift; 
    return XML::Dumper->new->pl2xml($self); # or use custom code 
} 

sub from_xml { 
    my ($self, $xml) = @_; 
    return XML::Dumper->new->xml2pl($xml); 
} 

no Moose::Role; 
1; 

對象從XML施工中應通過完成，和/或作爲類方法。

主要

use warnings; 
use strict; 

use Point; 

my $pt = Point->new(x => 10, y => 12); 

my $obj_xml = $pt->to_xml; 
print "$obj_xml\n"; 

my $obj = $pt->from_xml($obj_xml); 
print "Object via role: $obj\n"; 

#$obj->x(0.12); # fails as it should (only Int allowed) 

這用於寫入和加載從文件中可以添加打印

Created a Point (10, 12) 
<perldata> 
<hashref blessed_package="Point" memory_address="0x1691438"> 
    <item key="x">10</item> 
    <item key="y">12</item> 
</hashref> 
</perldata> 
Object via role: (10, 12) 

方法。但是現在你已經準備好了一個可以連接到MooseX::Storage的角色，如下所示。

我不知道也沒有測試過XML::Dumper和Moose的效果。請進行測試，如果它不能根據您的需求切換它，請使用您自己的代碼來調用它，以滿足您的需求。

---

如果需要，剩下的步驟是將其集成到MooseX::Storage中。

在上面的代碼中有兩個必要的小修改。使用在Point作用

use MooseX::Storage; 

with Storage(format => '=SerializeXML', io => 'File'); 

，並重新命名to_xml和from_xml到freeze和thaw（或添加這些，用相同的代碼）。

然後你可以使用store和load在main以從中

$pt->store($file); 
my $pt_new = Point->load($file); 

語法=PackageName是不是MooseX::Storage::Format::

以外的命名空間前綴寫入$file和負載的作用看Moose::Manual::Roles和Moose::Cookbook::Roles::命名空間（示例）。

Answer 2

因此，MooseX::Storage沒有XML存儲格式的原因之一是，正如您發現的那樣，大多數人擁有需要寫入的XML格式。 XML和Perl實際上具有非常不同的表示數據的方式，並且找出在兩者之間進行轉換的正確方法實際上並不是您可以自動執行的操作。

本身不會找到「現成的」選項。正如simbabque在評論中提到的，如果您已經或可以輕鬆地爲您的數據構建架構，那麼XML::Compile或'XML :: Pastor might work for you ( XML :: Compile is better maintained). If you're willing to do some grunt work XML :: Toolkit is designed to translate an example document into a series of Moose classes that it can then later re-serialize. However I haven't touched XML :: Toolkit`中的long time so YMMV關於它需要運行的東西。

我認爲最終你會發現最簡單的解決方案就是你已經擁有的那種方法，手工製作toXML方法。穆斯並沒有阻止你這樣做，事實上，它給你提供了一些工具來弄清楚如何使它更容易維護。看看MooseX :: Storage本身是如何實現的，以便看到一條好的路徑。