Wikibase::Datatype::Struct::Item - Wikibase item structure serialization.
use Wikibase::Datatype::Struct::Item qw(obj2struct struct2obj); my $struct_hr = obj2struct($obj, $base_uri); my $obj = struct2obj($struct_hr);
This conversion is between objects defined in Wikibase::Datatype and structures serialized via JSON to MediaWiki.
obj2struct
my $struct_hr = obj2struct($obj, $base_uri);
Convert Wikibase::Datatype::Item instance to structure. $base_uri is base URI of Wikibase system (e.g. http://test.wikidata.org/entity/).
$base_uri
Returns reference to hash with structure.
struct2obj
my $obj = struct2obj($struct_hr);
Convert structure of item to object.
Returns Wikibase::Datatype::Item instance.
obj2struct(): Base URI is required. Object doesn't exist. Object isn't 'Wikibase::Datatype::Item'. struct2obj(): Structure isn't for 'item' type.
use strict; use warnings; use Data::Printer; use Wikibase::Datatype::Item; use Wikibase::Datatype::Reference; use Wikibase::Datatype::Sitelink; use Wikibase::Datatype::Snak; use Wikibase::Datatype::Statement; use Wikibase::Datatype::Struct::Item qw(obj2struct); use Wikibase::Datatype::Value::Item; use Wikibase::Datatype::Value::Monolingual; use Wikibase::Datatype::Value::String; use Wikibase::Datatype::Value::Time; # Object. my $statement1 = Wikibase::Datatype::Statement->new( # instance of (P31) human (Q5) 'snak' => Wikibase::Datatype::Snak->new( 'datatype' => 'wikibase-item', 'datavalue' => Wikibase::Datatype::Value::Item->new( 'value' => 'Q5', ), 'property' => 'P31', ), 'property_snaks' => [ # of (P642) alien (Q474741) Wikibase::Datatype::Snak->new( 'datatype' => 'wikibase-item', 'datavalue' => Wikibase::Datatype::Value::Item->new( 'value' => 'Q474741', ), 'property' => 'P642', ), ], 'references' => [ Wikibase::Datatype::Reference->new( 'snaks' => [ # stated in (P248) Virtual International Authority File (Q53919) Wikibase::Datatype::Snak->new( 'datatype' => 'wikibase-item', 'datavalue' => Wikibase::Datatype::Value::Item->new( 'value' => 'Q53919', ), 'property' => 'P248', ), # VIAF ID (P214) 113230702 Wikibase::Datatype::Snak->new( 'datatype' => 'external-id', 'datavalue' => Wikibase::Datatype::Value::String->new( 'value' => '113230702', ), 'property' => 'P214', ), # retrieved (P813) 7 December 2013 Wikibase::Datatype::Snak->new( 'datatype' => 'time', 'datavalue' => Wikibase::Datatype::Value::Time->new( 'value' => '+2013-12-07T00:00:00Z', ), 'property' => 'P813', ), ], ), ], ); my $statement2 = Wikibase::Datatype::Statement->new( # sex or gender (P21) male (Q6581097) 'snak' => Wikibase::Datatype::Snak->new( 'datatype' => 'wikibase-item', 'datavalue' => Wikibase::Datatype::Value::Item->new( 'value' => 'Q6581097', ), 'property' => 'P21', ), 'references' => [ Wikibase::Datatype::Reference->new( 'snaks' => [ # stated in (P248) Virtual International Authority File (Q53919) Wikibase::Datatype::Snak->new( 'datatype' => 'wikibase-item', 'datavalue' => Wikibase::Datatype::Value::Item->new( 'value' => 'Q53919', ), 'property' => 'P248', ), # VIAF ID (P214) 113230702 Wikibase::Datatype::Snak->new( 'datatype' => 'external-id', 'datavalue' => Wikibase::Datatype::Value::String->new( 'value' => '113230702', ), 'property' => 'P214', ), # retrieved (P813) 7 December 2013 Wikibase::Datatype::Snak->new( 'datatype' => 'time', 'datavalue' => Wikibase::Datatype::Value::Time->new( 'value' => '+2013-12-07T00:00:00Z', ), 'property' => 'P813', ), ], ), ], ); # Main item. my $obj = Wikibase::Datatype::Item->new( 'aliases' => [ Wikibase::Datatype::Value::Monolingual->new( 'language' => 'cs', 'value' => 'Douglas Noël Adams', ), Wikibase::Datatype::Value::Monolingual->new( 'language' => 'cs', 'value' => 'Douglas Noel Adams', ), Wikibase::Datatype::Value::Monolingual->new( 'language' => 'cs', 'value' => 'Douglas N. Adams', ), Wikibase::Datatype::Value::Monolingual->new( 'language' => 'en', 'value' => 'Douglas Noel Adams', ), Wikibase::Datatype::Value::Monolingual->new( 'language' => 'en', 'value' => 'Douglas Noël Adams', ), Wikibase::Datatype::Value::Monolingual->new( 'language' => 'en', 'value' => 'Douglas N. Adams', ), ], 'descriptions' => [ Wikibase::Datatype::Value::Monolingual->new( 'language' => 'cs', 'value' => 'anglický spisovatel, humorista a dramatik', ), Wikibase::Datatype::Value::Monolingual->new( 'language' => 'en', 'value' => 'English writer and humorist', ), ], 'id' => 'Q42', 'labels' => [ Wikibase::Datatype::Value::Monolingual->new( 'language' => 'cs', 'value' => 'Douglas Adams', ), Wikibase::Datatype::Value::Monolingual->new( 'language' => 'en', 'value' => 'Douglas Adams', ), ], 'page_id' => 123, 'sitelinks' => [ Wikibase::Datatype::Sitelink->new( 'site' => 'cswiki', 'title' => 'Douglas Adams', ), Wikibase::Datatype::Sitelink->new( 'site' => 'enwiki', 'title' => 'Douglas Adams', ), ], 'statements' => [ $statement1, $statement2, ], 'title' => 'Q42', ); # Get structure. my $struct_hr = obj2struct($obj, 'http://test.wikidata.org/entity/'); # Dump to output. p $struct_hr; # Output: # \ { # aliases { # cs [ # [0] { # language "cs", # value "Douglas Noël Adams" # }, # [1] { # language "cs", # value "Douglas Noel Adams" # }, # [2] { # language "cs", # value "Douglas N. Adams" # } # ], # en [ # [0] { # language "en", # value "Douglas Noel Adams" # }, # [1] { # language "en", # value "Douglas Noël Adams" # }, # [2] { # language "en", # value "Douglas N. Adams" # } # ] # }, # descriptions { # cs { # language "cs", # value "anglický spisovatel, humorista a dramatik" # }, # en { # language "en", # value "English writer and humorist" # } # }, # id "Q42", # labels { # cs { # language "cs", # value "Douglas Adams" # }, # en { # language "en", # value "Douglas Adams" # } # }, # ns 0, # pageid 123, # sitelinks { # cswiki { # badges [], # site "cswiki", # title "Douglas Adams" # }, # enwiki { # badges [], # site "enwiki", # title "Douglas Adams" # } # }, # claims { # P21 [ # [0] { # mainsnak { # datatype "wikibase-item", # datavalue { # type "wikibase-entityid", # value { # entity-type "item", # id "Q6581097", # numeric-id 6581097 # } # }, # property "P21", # snaktype "value" # }, # rank "normal", # references [ # [0] { # snaks { # P214 [ # [0] { # datatype "external-id", # datavalue { # type "string", # value 113230702 # }, # property "P214", # snaktype "value" # } # ], # P248 [ # [0] { # datatype "wikibase-item", # datavalue { # type "wikibase-entityid", # value { # entity-type "item", # id "Q53919", # numeric-id 53919 # } # }, # property "P248", # snaktype "value" # } # ], # P813 [ # [0] { # datatype "time", # datavalue { # type "time", # value { # after 0, # before 0, # calendarmodel "http://test.wikidata.org/entity/Q1985727", # precision 11, # time "+2013-12-07T00:00:00Z", # timezone 0 # } # }, # property "P813", # snaktype "value" # } # ] # }, # snaks-order [ # [0] "P248", # [1] "P214", # [2] "P813" # ] # } # ], # type "statement" # } # ], # P31 [ # [0] { # mainsnak { # datatype "wikibase-item", # datavalue { # type "wikibase-entityid", # value { # entity-type "item", # id "Q5", # numeric-id 5 # } # }, # property "P31", # snaktype "value" # }, # qualifiers { # P642 [ # [0] { # datatype "wikibase-item", # datavalue { # type "wikibase-entityid", # value { # entity-type "item", # id "Q474741", # numeric-id 474741 # } # }, # property "P642", # snaktype "value" # } # ] # }, # qualifiers-order [ # [0] "P642" # ], # rank "normal", # references [ # [0] { # snaks { # P214 [ # [0] { # datatype "external-id", # datavalue { # type "string", # value 113230702 # }, # property "P214", # snaktype "value" # } # ], # P248 [ # [0] { # datatype "wikibase-item", # datavalue { # type "wikibase-entityid", # value { # entity-type "item", # id "Q53919", # numeric-id 53919 # } # }, # property "P248", # snaktype "value" # } # ], # P813 [ # [0] { # datatype "time", # datavalue { # type "time", # value { # after 0, # before 0, # calendarmodel "http://test.wikidata.org/entity/Q1985727", # precision 11, # time "+2013-12-07T00:00:00Z", # timezone 0 # } # }, # property "P813", # snaktype "value" # } # ] # }, # snaks-order [ # [0] "P248", # [1] "P214", # [2] "P813" # ] # } # ], # type "statement" # } # ] # }, # title "Q42", # type "item" # }
use strict; use warnings; use Data::Printer; use Wikibase::Datatype::Struct::Item qw(struct2obj); # Item structure. my $struct_hr = { 'aliases' => { 'en' => [{ 'language' => 'en', 'value' => 'Douglas Noel Adams', }, { 'language' => 'en', 'value' => 'Douglas Noël Adams', }], 'cs' => [{ 'language' => 'cs', 'value' => 'Douglas Noel Adams', }, { 'language' => 'cs', 'value' => 'Douglas Noël Adams', }], }, 'claims' => { 'P394' => [{ 'rank' => 'normal', 'id' => 'Q42$c763016e-49e0-89b9-f717-2b18af5148f9', 'references' => [{ 'hash' => 'ed9d0472fca124cea519c0a37eba5f33f10baa22', 'snaks' => { 'P1943' => [{ 'datavalue' => { 'type' => 'string', 'value' => 'http://wikipedia.org/', }, 'datatype' => 'url', 'snaktype' => 'value', 'hash' => 'b808d4d54bed4daf07d9ac73353c0d1173cfa3c0', 'property' => 'P1943', }], }, 'snaks-order' => [ 'P1943', ], }], 'type' => 'statement', 'mainsnak' => { 'datatype' => 'quantity', 'datavalue' => { 'type' => 'quantity', 'value' => { 'amount' => '+0.00000000000000000000000000000091093821500', 'upperBound' => '+0.00000000000000000000000000000091093821545', 'lowerBound' => '+0.00000000000000000000000000000091093821455', 'unit' => 'http://test.wikidata.org/entity/Q213', }, }, 'snaktype' => 'value', 'hash' => 'fac57bc5b94714fb2390cce90f58b6a6cf9b9717', 'property' => 'P394', }, }], }, 'descriptions' => { 'en' => { 'language' => 'en', 'value' => 'human', }, 'cs' => { 'language' => 'cs', 'value' => 'člověk', }, }, 'id' => 'Q42', 'labels' => { 'en' => { 'language' => 'en', 'value' => 'Douglas Adams', }, 'cs' => { 'language' => 'cs', 'value' => 'Douglas Adams', }, }, 'lastrevid' => 534820, 'modified' => '2020-12-02T13:39:18Z', 'ns' => 0, 'pageid' => '703', 'sitelinks' => { 'cswiki' => { 'title' => 'Douglas Adams', 'badges' => [], 'site' => 'cswiki', }, }, 'type' => 'item', 'title' => 'Q42', }; # Get object. my $obj = struct2obj($struct_hr); # Print out. p $obj; # Output: # Wikibase::Datatype::Item { # Parents Mo::Object # public methods (9) : BUILD, can (UNIVERSAL), DOES (UNIVERSAL), err (Error::Pure), check_array_object (Mo::utils), check_number (Mo::utils), check_number_of_items (Mo::utils), isa (UNIVERSAL), VERSION (UNIVERSAL) # private methods (1) : __ANON__ (Mo::build) # internals: { # aliases [ # [0] Wikibase::Datatype::Value::Monolingual, # [1] Wikibase::Datatype::Value::Monolingual, # [2] Wikibase::Datatype::Value::Monolingual, # [3] Wikibase::Datatype::Value::Monolingual # ], # descriptions [ # [0] Wikibase::Datatype::Value::Monolingual, # [1] Wikibase::Datatype::Value::Monolingual # ], # id "Q42", # labels [ # [0] Wikibase::Datatype::Value::Monolingual, # [1] Wikibase::Datatype::Value::Monolingual # ], # lastrevid 534820, # modified "2020-12-02T13:39:18Z", # ns 0, # page_id 703, # sitelinks [ # [0] Wikibase::Datatype::Sitelink # ], # statements [ # [0] Wikibase::Datatype::Statement # ], # title "Q42" # } # }
Error::Pure, Exporter, Readonly, Wikibase::Datatype::Reference, Wikibase::Datatype::Struct::Utils.
Wikibase structure serialization.
Wikibase item datatype.
https://github.com/michal-josef-spacek/Wikibase-Datatype-Struct
Michal Josef Špaček mailto:skim@cpan.org
http://skim.cz
© 2020-2023 Michal Josef Špaček
BSD 2-Clause License
0.12
To install Wikibase::Datatype::Struct, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Wikibase::Datatype::Struct
CPAN shell
perl -MCPAN -e shell install Wikibase::Datatype::Struct
For more information on module installation, please visit the detailed CPAN module installation guide.