{"id":686,"date":"2004-12-07T21:05:08","date_gmt":"2004-12-07T21:05:08","guid":{"rendered":"http:\/\/beta.robertprice.co.uk\/robblog\/2004\/12\/parsing_rdf_in_perl_with_rdf_simple-shtml\/"},"modified":"2004-12-07T21:05:08","modified_gmt":"2004-12-07T21:05:08","slug":"parsing_rdf_in_perl_with_rdf_simple-shtml","status":"publish","type":"post","link":"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/","title":{"rendered":"Parsing RDF In Perl With RDF::Simple"},"content":{"rendered":"

\nIn this article I’ll describe how to parse and extract data from an RDF file using Jo Walsh<\/a>‘s RDF::Simple::Parser<\/a> module in Perl<\/a>.\n<\/p>\n

\nRDF::Simple::Parser does what it says on the tin, it provides a simple way to parse RDF. Unfortunately, that can make it hard to extract data. All it returns from a successful parse of the RDF file, is what Jo calls a “bucket-o-triples”. This is just an array of arrays. The first array contains an list of all the triples. The second array contains the actual triples broken down so Subject is in position 0, Predicate is in position 1 and Object in position 2.\n<\/p>\n

\nLet’s define these as constants in Perl as they’re not going to be changing.\n<\/p>\n

use constant SUBJECT => 0;
\nuse constant PREDICATE => 1;
\nuse constant OBJECT => 2;
\n<\/code><\/div>\n

\nI’m going to use my usual example of my parsing my FOAF<\/acronym> file<\/a>, and I’ll be extracting the addresses of my friend’s FOAF files from it. See the example in What Is An RDF Triple<\/a>, for a full breakdown of this.\n<\/p>\n

\nWe’ll define the two predicates we need to look for as constants.<\/p>\n

use constant KNOWS_PREDICATE => 'http:\/\/xmlns.com\/foaf\/0.1\/knows';
\nuse constant SEEALSO_PREDICATE => 'http:\/\/www.w3.org\/2000\/01\/rdf-schema#seeAlso';
\n<\/code><\/div>\n<\/p>\n

\nWe need to load in the FOAF file, so we’ll take advantage of File::Slurp’s read_file method to do this and put it in a variable called $file<\/var>.<\/p>\n

my $file = read_file('.\/foaf.rdf');
\n<\/code><\/div>\n<\/p>\n

\nBefore we can use RDF::Simple::Parser, we need to create an instance of it. I’ll set the base address to www.robertprice.co.uk in this case.<\/p>\n

my $parser = RDF::Simple::Parser->new(base => 'http:\/\/www.robertprice.co.uk\/');
\n<\/code><\/div>\n<\/p>\n

\nNow we have the instance, we can pass in our FOAF file for parsing and get back our triples.<\/p>\n

my @triples = $parser->parse_rdf($file);
\n<\/code><\/div>\n<\/p>\n

\nLet’s take a quick look at my FOAF<\/acronym> file<\/a> to get an example triple.\n<\/p>\n

\nI know Cal Henderson<\/a>, and this is represented in my FOAF<\/acronym> file as…\n<\/p>\n

<foaf:knows>
\n<foaf:Person>
\n<foaf:nick>Cal<\/foaf:nick>
\n<foaf:name>Cal Henderson<\/foaf:name>
\n<foaf:mbox_sha1sum>2971b1c2fd1d4f0e8f99c167cd85d522a614b07b<\/foaf:mbox_sha1sum>
\n<rdfs:seeAlso rdf:resource=\"http:\/\/www.iamcal.com\/foaf.xml\"\/>
\n<\/foaf:Person>
\n<\/foaf:knows>
\n<\/code><\/div>\n

\nUsing the RDF validator we can get a the list of triples represented in this piece of RDF.\n<\/p>\n\n\n\n<\/p>\n\n\n\n\n\n\n
Triple<\/th>\nSubject<\/th>\nPredicate<\/th>\nObject<\/th>\n
1<\/td>\ngenid:ARP40722<\/td>\nhttp:\/\/www.w3.org\/1999\/02\/22-rdf-syntax-ns#type<\/a><\/td>\nhttp:\/\/xmlns.com\/foaf\/0.1\/Person<\/a><\/td>\n<\/tr>\n
2<\/td>\ngenid:ARP40722<\/td>\nhttp:\/\/xmlns.com\/foaf\/0.1\/nick<\/a><\/td>\n\n"Cal"\n<\/td>\n<\/tr>\n
3<\/td>\ngenid:ARP40722<\/td>\nhttp:\/\/xmlns.com\/foaf\/0.1\/name<\/a><\/td>\n\n"Cal Henderson"\n<\/td>\n<\/tr>\n
4<\/td>\ngenid:ARP40722<\/td>\nhttp:\/\/xmlns.com\/foaf\/0.1\/mbox_sha1sum<\/a><\/td>\n\n"2971b1c2fd1d4f0e8f99c167cd85d522a614b07b"\n<\/td>\n<\/tr>\n
5<\/td>\ngenid:ARP40722<\/td>\nhttp:\/\/www.w3.org\/2000\/01\/rdf-schema#seeAlso<\/a><\/td>\nhttp:\/\/www.iamcal.com\/foaf.xml<\/a><\/td>\n<\/tr>\n
6<\/td>\ngenid:me<\/td>\nhttp:\/\/xmlns.com\/foaf\/0.1\/knows<\/a><\/td>\ngenid:ARP40722<\/td>\n<\/tr>\n


\n<\/table>\n<\/p>\n

\nThe part we are interested are triples 5 and 6. We can see that triple 6 has Predicate value the same as our KNOWS_PREDICATE<\/code> constant, and triple 5 has the Predicate value of our SEEALSO_PREDICATE<\/code> constant. The part this links the two is that triple 6 has the Object value of triple 5’s Subject.\n<\/p>\n

\nWe know if we search for triples with the same predicate as our KNOWS_PREDICATE<\/code> we’ll get triples that are to do with people I know. We can use Perl’s grep<\/code> function to get these triples, then we can interate over them in a foreach<\/code> loop.\n<\/p>\n

foreach my $known (grep { $_->[PREDICATE] eq KNOWS_PREDICATE } @triples) {
\n<\/code><\/div>\n

\nWe are only interest in the triples that have the same Subject as matching triple’s Object. Again, we can use grep<\/code> to get these out so we can interate over them.\n<\/p>\n

foreach my $triple (grep { $_->[SUBJECT] eq $known->[OBJECT] } @triples) {
\n<\/code><\/div>\n

\nNow we just need to make sure that the triple’s Predicate matches our SEEALSO_PREDICATE<\/code> constant, and if it does, we can print out the value of it from it’s Object.\n<\/p>\n

if ($triple->[PREDICATE] eq SEEALSO_PREDICATE) {
\nprint $triple->[OBJECT], \"n\"
\n}
\n<\/code><\/div>\n

\nLet’s put this all together into a working example…\n<\/p>\n

#!\/usr\/bin\/perl -w
\nuse strict;
\nuse File::Slurp;
\nuse RDF::Simple::Parser;
\n## constants defining position of triple components in
\n## RDF::Simple triple lists.
\nuse constant SUBJECT => 0;
\nuse constant PREDICATE => 1;
\nuse constant OBJECT => 2;
\n## some known predicates.
\nuse constant KNOWS_PREDICATE => 'http:\/\/xmlns.com\/foaf\/0.1\/knows';
\nuse constant SEEALSO_PREDICATE => 'http:\/\/www.w3.org\/2000\/01\/rdf-schema#seeAlso';
\n## read in my foaf file and put it in $file.
\nmy $file = read_file('.\/foaf.rdf');
\n## create a new parser, using my domain as a base.
\nmy $parser = RDF::Simple::Parser->new(base => 'http:\/\/www.robertprice.co.uk\/');
\n## parse my foaf file, and return a list of triples.
\nmy @triples = $parser->parse_rdf($file);
\n## iterate over a list of triples matching the KNOWN_PREDICATE value.
\nforeach my $known (grep { $_->[PREDICATE] eq KNOWS_PREDICATE } @triples) {
\n## iteratve over a list of triples that have the same subject
\n## as one of our KNOWN_PREDICATE triples object.
\nforeach my $triple (grep { $_->[SUBJECT] eq $known->[OBJECT] } @triples) {
\n## find triples that match the SEEALSO_PREDICATE
\nif ($triple->[PREDICATE] eq SEEALSO_PREDICATE) {
\n## print out the object, should be the address
\n## of my friends foaf file.
\nprint $triple->[OBJECT], \"n\"
\n}
\n}
\n}
\n<\/code><\/div>\n

\nThe example will load in the FOAF file, parse it and print out any friends of mine that have FOAF files defined by the seeAlso predicate.<\/p>\n","protected":false},"excerpt":{"rendered":"

In this article I’ll describe how to parse and extract data from an RDF file using Jo Walsh‘s RDF::Simple::Parser module in Perl. RDF::Simple::Parser does what it says on the tin, it provides a simple way to parse RDF. Unfortunately, that can make it hard to extract data. All it returns from a successful parse of … Continue reading “Parsing RDF In Perl With RDF::Simple”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"inline_featured_image":false,"footnotes":""},"categories":[2],"tags":[21,47,56],"class_list":["post-686","post","type-post","status-publish","format-standard","hentry","category-dev","tag-foaf","tag-perl","tag-rdf"],"yoast_head":"\nParsing RDF In Perl With RDF::Simple - Robert Price<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/\" \/>\n<meta property=\"og:locale\" content=\"en_GB\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Parsing RDF In Perl With RDF::Simple - Robert Price\" \/>\n<meta property=\"og:description\" content=\"In this article I’ll describe how to parse and extract data from an RDF file using Jo Walsh‘s RDF::Simple::Parser module in Perl. RDF::Simple::Parser does what it says on the tin, it provides a simple way to parse RDF. Unfortunately, that can make it hard to extract data. All it returns from a successful parse of … Continue reading "Parsing RDF In Perl With RDF::Simple"\" \/>\n<meta property=\"og:url\" content=\"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/\" \/>\n<meta property=\"og:site_name\" content=\"Robert Price\" \/>\n<meta property=\"article:published_time\" content=\"2004-12-07T21:05:08+00:00\" \/>\n<meta name=\"author\" content=\"rob\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"rob\" \/>\n\t<meta name=\"twitter:label2\" content=\"Estimated reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"5 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/parsing_rdf_in_perl_with_rdf_simple-shtml\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/parsing_rdf_in_perl_with_rdf_simple-shtml\\\/\"},\"author\":{\"name\":\"rob\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/#\\\/schema\\\/person\\\/fac6d5b076e0e14e1fb13e15b542a6c5\"},\"headline\":\"Parsing RDF In Perl With RDF::Simple\",\"datePublished\":\"2004-12-07T21:05:08+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/parsing_rdf_in_perl_with_rdf_simple-shtml\\\/\"},\"wordCount\":588,\"keywords\":[\"FOAF\",\"Perl\",\"RDF\"],\"articleSection\":[\"Dev\"],\"inLanguage\":\"en-GB\"},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/parsing_rdf_in_perl_with_rdf_simple-shtml\\\/\",\"url\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/parsing_rdf_in_perl_with_rdf_simple-shtml\\\/\",\"name\":\"Parsing RDF In Perl With RDF::Simple - Robert Price\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/#website\"},\"datePublished\":\"2004-12-07T21:05:08+00:00\",\"author\":{\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/#\\\/schema\\\/person\\\/fac6d5b076e0e14e1fb13e15b542a6c5\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/parsing_rdf_in_perl_with_rdf_simple-shtml\\\/#breadcrumb\"},\"inLanguage\":\"en-GB\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/parsing_rdf_in_perl_with_rdf_simple-shtml\\\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/parsing_rdf_in_perl_with_rdf_simple-shtml\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Parsing RDF In Perl With RDF::Simple\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/#website\",\"url\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/\",\"name\":\"Robert Price\",\"description\":\"\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-GB\"},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/#\\\/schema\\\/person\\\/fac6d5b076e0e14e1fb13e15b542a6c5\",\"name\":\"rob\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-GB\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g\",\"caption\":\"rob\"}}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Parsing RDF In Perl With RDF::Simple - Robert Price","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/","og_locale":"en_GB","og_type":"article","og_title":"Parsing RDF In Perl With RDF::Simple - Robert Price","og_description":"In this article I’ll describe how to parse and extract data from an RDF file using Jo Walsh‘s RDF::Simple::Parser module in Perl. RDF::Simple::Parser does what it says on the tin, it provides a simple way to parse RDF. Unfortunately, that can make it hard to extract data. All it returns from a successful parse of … Continue reading \"Parsing RDF In Perl With RDF::Simple\"","og_url":"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/","og_site_name":"Robert Price","article_published_time":"2004-12-07T21:05:08+00:00","author":"rob","twitter_card":"summary_large_image","twitter_misc":{"Written by":"rob","Estimated reading time":"5 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/#article","isPartOf":{"@id":"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/"},"author":{"name":"rob","@id":"https:\/\/www.robertprice.co.uk\/robblog\/#\/schema\/person\/fac6d5b076e0e14e1fb13e15b542a6c5"},"headline":"Parsing RDF In Perl With RDF::Simple","datePublished":"2004-12-07T21:05:08+00:00","mainEntityOfPage":{"@id":"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/"},"wordCount":588,"keywords":["FOAF","Perl","RDF"],"articleSection":["Dev"],"inLanguage":"en-GB"},{"@type":"WebPage","@id":"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/","url":"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/","name":"Parsing RDF In Perl With RDF::Simple - Robert Price","isPartOf":{"@id":"https:\/\/www.robertprice.co.uk\/robblog\/#website"},"datePublished":"2004-12-07T21:05:08+00:00","author":{"@id":"https:\/\/www.robertprice.co.uk\/robblog\/#\/schema\/person\/fac6d5b076e0e14e1fb13e15b542a6c5"},"breadcrumb":{"@id":"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/#breadcrumb"},"inLanguage":"en-GB","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/www.robertprice.co.uk\/robblog\/parsing_rdf_in_perl_with_rdf_simple-shtml\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/www.robertprice.co.uk\/robblog\/"},{"@type":"ListItem","position":2,"name":"Parsing RDF In Perl With RDF::Simple"}]},{"@type":"WebSite","@id":"https:\/\/www.robertprice.co.uk\/robblog\/#website","url":"https:\/\/www.robertprice.co.uk\/robblog\/","name":"Robert Price","description":"","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.robertprice.co.uk\/robblog\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-GB"},{"@type":"Person","@id":"https:\/\/www.robertprice.co.uk\/robblog\/#\/schema\/person\/fac6d5b076e0e14e1fb13e15b542a6c5","name":"rob","image":{"@type":"ImageObject","inLanguage":"en-GB","@id":"https:\/\/secure.gravatar.com\/avatar\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g","caption":"rob"}}]}},"_links":{"self":[{"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/posts\/686","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/comments?post=686"}],"version-history":[{"count":0,"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/posts\/686\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/media?parent=686"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/categories?post=686"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/tags?post=686"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}