鍏朵粬璇█錛?/strong>http://code.google.com/p/protobuf/wiki/OtherLanguages
錛堝彲閫傜敤涓庡縐嶈璦錛?br />
javascript 璇誨彇緙撳瓨涓殑鏁版嵁 ,浣犲彲浠ユ兂璞′笅浣犵殑 web鏈嶅姟寮鍙?鐨勫皢鏉ワ紒錛?br />
鐩墠瀛︿範perl 涓?灝卞厛涓婁釜榪欑殑浠g爜錛?br />
鍙傝冿細
http://search.cpan.org/~gariev/Google-ProtocolBuffers-0.08/lib/Google/ProtocolBuffers.pm#___top
#!/bin/perl -w
use Cache::Memcached;
use Google::ProtocolBuffers;
#寮鍚?memd
my $memd = new Cache::Memcached{servers => ['10.0.2.15:11211'] };
#澹版槑 緙撳瓨 瀛樺偍 protocol 鏍煎紡
my $key='test';
Google::ProtocolBuffers->parse("
message Person{
required int32 id =1;
required string name =2;
}
",{create_accessors=>1});
my $data=Person->encode({
id=>123,
name=>'liukaiyi'
});
#緙撳瓨瀛樺偍
$memd->add($key =>$data,3600);
#######################################################################
my $memd = new Cache::Memcached{servers => ['10.0.2.15:11211'] };
my $person;{
#浠庣紦瀛樹腑鍙栧嚭
$person = Person->decode($memd->get($key));
}
print $person->id,"-",$person->name;
緇撴灉錛?br />
123-liukaiyi

]]>