arrays - Cannot access all XML elements PERL -

-

i have simple perl script can parse downloaded xml file server. problem array have made seems store first set of tags.

here code:

sub test_button_func() {  $ua->cookie_jar($cookie_jar); # make request  $server_endpoint = "server_url_link"; $server_endpoint =~ s/\%id\%/$user/g;  # set custom http request header fields $req = http::request->new(get => $server_endpoint); $req->header('content-type' => 'application/json');  $parser = shift; $resp = $ua->request($req);  if ($resp->is_success) {      # xml response received jazz api.     $message = $resp->decoded_content;      # parse xml downloaded here:     # create object     $xml = new xml::simple;      # read xml file     @data = $xml->xmlin($message);     $arraysize = scalar (@data);      # print out data need     (my $num = 0; $num <= ($arraysize - 1); $num++) {         print @data[0]->{'oslc_disc:entry'}[$num]{'oslc_disc:serviceprovider'}{'dc:title'};         print "\n";     } }  else {     print "http error code: ", $resp->code, "\n";     print "http error message: ", $resp->message, "\n";     print $resp->decoded_content; } }

the xml try parse this:

<oslc_disc:entry>  <oslc_disc:serviceprovider>      <dc:title>url main title</dc:title>     <oslc_disc:details rdf:resource="url link"/>     <oslc_disc:services rdf:resource="url link"/>     <jfs_proc:consumerregistry rdf:resource="url link"/>  </oslc_disc:serviceprovider>  </oslc_disc:entry>

so point can parse first "oslc_disc" entry. there more 1 of in xml file. how parse rest?

do not use xml library parse rdf. cause world of pain.

also, don't use xml::simple anything, ever.

rdf::trine current state of art rdf in perl. attean being written replace it, lighter weight, , should offer nicer api, not ready yet.

example using rdf::trine

use strict; use warnings; use rdf::trine;  # $base resolving relative urls. $base = 'http://example.com/';  # parse data $model $parser = rdf::trine::parser::rdfxml->new; $model  = rdf::trine::model->new; $parser->parse_file_into_model($base, \*data, $model);  # namespaces querying data... $oslc = rdf::trine::namespace->new('http://open-services.net/xmlns/discovery/1.0/'); $dc   = rdf::trine::namespace->new('http://purl.org/dc/terms/');  # cycle through objects of oscl_disc:entry $provider ( $model->objects(undef, $oslc->entry) ) {      # title. returns list of titles, call     # in list context , first result.     ($title) = $model->objects($provider, $dc->title);      # print it.     print "got: ", $title->literal_value, "\n"; }  __data__ <oslc_disc:serviceprovidercatalog     xmlns:oslc_disc="http://open-services.net/xmlns/discovery/1.0/"     xmlns:dc="http://purl.org/dc/terms/"     xmlns:jfs_proc="https://jazz.net/xmlns/prod/jazz/process/1.0/"     xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"     rdf:about="https://localhost:9443/ccm/oslc-scm/catalog.xml" >     <oslc_disc:entry>         <oslc_disc:serviceprovider>             <dc:title>foo bar baz</dc:title>             <oslc_disc:details rdf:resource="foo"/>             <oslc_disc:services rdf:resource="bar"/>             <jfs_proc:consumerregistry rdf:resource="baz"/>         </oslc_disc:serviceprovider>     </oslc_disc:entry>     <oslc_disc:entry>         <oslc_disc:serviceprovider dc:title="foo bar baz ii">             <oslc_disc:details rdf:resource="foo2"/>             <oslc_disc:services rdf:resource="bar2"/>             <jfs_proc:consumerregistry rdf:resource="baz2"/>         </oslc_disc:serviceprovider>     </oslc_disc:entry> </oslc_disc:serviceprovidercatalog>

example using attean

i've not used attean yet, there may more elegant ways of doing this...

use strict; use warnings; use attean::rdf qw(iri);  # $base resolving relative urls. $base = 'http://example.com/';  # parse data $model $store  = attean->get_store('memory')->new; $model  = attean::mutablequadmodel->new( store => $store ); $data   = { local $/; <data> };  # slurp filehandle string $model->load_triples(rdfxml => iri($base), $data);  # namespaces querying data... $oslc = 'http://open-services.net/xmlns/discovery/1.0/'; $dc   = 'http://purl.org/dc/terms/';  # cycle through objects of oscl_disc:entry $provider ( $model->objects(undef, iri("${oslc}entry"))->elements ) {      # title. returns list of titles, call     # in list context , first result.     ($title) = $model->objects($provider, iri("${dc}title"))->elements;      # print it.     print "got: ", $title->value, "\n"; }  __data__ <oslc_disc:serviceprovidercatalog     xmlns:oslc_disc="http://open-services.net/xmlns/discovery/1.0/"     xmlns:dc="http://purl.org/dc/terms/"     xmlns:jfs_proc="https://jazz.net/xmlns/prod/jazz/process/1.0/"     xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"     rdf:about="https://localhost:9443/ccm/oslc-scm/catalog.xml" >     <oslc_disc:entry>         <oslc_disc:serviceprovider>             <dc:title>foo bar baz</dc:title>             <oslc_disc:details rdf:resource="foo"/>             <oslc_disc:services rdf:resource="bar"/>             <jfs_proc:consumerregistry rdf:resource="baz"/>         </oslc_disc:serviceprovider>     </oslc_disc:entry>     <oslc_disc:entry>         <oslc_disc:serviceprovider dc:title="foo bar baz ii">             <oslc_disc:details rdf:resource="foo2"/>             <oslc_disc:services rdf:resource="bar2"/>             <jfs_proc:consumerregistry rdf:resource="baz2"/>         </oslc_disc:serviceprovider>     </oslc_disc:entry> </oslc_disc:serviceprovidercatalog>

Comments

Post a Comment

Popular posts from this blog

matlab - "Contour not rendered for non-finite ZData" -

-
i'm trying plot frequency characteristic equation using ezplot, matlab gives following warning, "contour not rendered non-finite zdata". have used command plot frequency equations warning , plot display empty , not change axis range well. can please help. appreciated. here's code i'm using. % transfer matrix case-i, thin rotor clear all; clc; ei = 1626; l = 0.15; m = 0.44108; = 2.178*10^-4; i_p = 2.205*10^-5; itr = 0.24; i_pr = 0.479; syms p n; f = [1 l*1i l^2/(2*ei)*1i l^3/(6*ei); 0 1 l/ei -l^2/(2*ei)*1i; 0 0 1 -l*1i; 0 0 0 l]; p = [ 1 0 0 0; 0 1 0 0; 0 -it*p^2+i_p*n*p 1 0; -m*p^2 0 0 1]; p_r = [1 0 0 0; 0 1 0 0; 0 -itr*p^2+i_pr*n*p 1 0; -m*p^2 0 0 1]; = f*p*f*p*f*p*f; b = p_r*f*p*f*p*f; r = a(1,2)/a(1,4); a12_p = 0; a22_p = a(2,2)-r*a(2,4); a32_p = a(3,2)-r*a(3,4); a42_p = a(4,2)-r*a(4,4); ap(2,2) = a22_p; ap(3,2) = a32_p; ap(4,2) = a42_p; ap(4,4) = 1; c = b*ap; m = [c(3,2) c(3,4); c(4,2) c(4,...
Read more

delphi - Indy UDP Read Contents of Adata -

-
i using indy udp server read string of data. however, not know how work adata parameter. can around converting binary using bytetobin function below , convert hex using bintohex1 . feel stupid , works slow. know how can directly results without 2 conversions? thanks!! here codes: procedure tform1.idudpserver1udpread(athread: tidudplistenerthread; const adata: tidbytes; abinding: tidsockethandle); var buf: tidbytes; buffer: string; data_received: string; begin if bytestostring(adata) <> 'hello' begin buffer := hextostring('00'); setlength(buf, length(buffer)); copytidstring(buffer, buf, 0); abinding.sendto(abinding.peerip, abinding.peerport, buf); data_received := bintohex1(bytetobin(adata[1]) + bytetobin(adata[2]) + bytetobin(adata[3]) + bytetobin(adata[4]) + bytetobin(adata[5]) + bytetobin(adata[6]) + bytetobin(adata[7]) + bytetobin(adata[8]) + bytetobin(adata[9]) + bytetobin(adata[10]) + bytetobin(adata[11...
Read more

javascript - Any ideas when Firefox is likely to implement lengthAdjust and textLength? -

-
any ideas when firefox implement lengthadjust andtextlength?..... working svg application. lengthadjust , textlength working fine in chrome not working in fire fox . <svg viewbox = "0 0 500 300" version = "1.1"> <defs> <path id="s3" d="m 10,90 q 100,15 200,70" /> </defs> <g> <text font-size = "20"> <textpath xlink:href="#s3" textlength="205"> short text</textpath> </text> <use xlink:href="#s3" fill="none" stroke="black" stroke-width="1"/> </g> </svg> this implemented in firefox text elements (not textpath or tspan) in case that's ok though can move attribute text element. <svg viewbox = "0 0 500 300" version = "1.1"> <defs> ...
Read more