diff options
| author | Jonas Smedegaard <dr@jones.dk> | 2011-07-14 21:03:27 +0200 |
|---|---|---|
| committer | Jonas Smedegaard <dr@jones.dk> | 2011-07-14 21:03:27 +0200 |
| commit | 23e10b3f1bfb49e00d144c59734daeaa3e276605 (patch) | |
| tree | 2b6ca25ceb6966617e3e5218bff514538932c6aa /foaf | |
| parent | 387d128fefb79294790a09fecacdfd1d099326ae (diff) | |
Drop impossible to abbreviate datetypes.
Diffstat (limited to 'foaf')
| -rwxr-xr-x | foaf/any2rdf.pl | 5 | ||||
| -rwxr-xr-x | foaf/linkedin2rdf.pl | 5 |
2 files changed, 2 insertions, 8 deletions
diff --git a/foaf/any2rdf.pl b/foaf/any2rdf.pl index 7fa156a..9474aa6 100755 --- a/foaf/any2rdf.pl +++ b/foaf/any2rdf.pl @@ -21,9 +21,6 @@ my $NAMESPACES= { ical => 'http://www.w3.org/2002/12/cal/icaltzd#', cv => 'http://purl.org/captsolo/resume-rdf/0.2/cv#', hresume => 'http://ontologi.es/hresume#', -# TODO: somehow make RDF::Trine abbreviate labels -# 'xsd:dateTime' => 'http://www.w3.org/2001/XMLSchema#dateTime', -# 'geo:SpatialThing' => 'http://www.w3.org/2003/01/geo/wgs84_pos#SpatialThing', }; my $parser = HTML::Data::Parser->new; @@ -36,6 +33,6 @@ my $output = rdf_string($model,'RDFXML', ); # TODO: somehow make RDF::Trine generate stable IDs -$output =~ s/(?<=rdf:nodeID=")B[a-f0-9]{32}(?=0[0-9]{3}")//g; +$output =~ s/(?<=rdf:nodeID="B)[a-f0-9]{32}(?=0[0-9]{3}")//g; print $output; diff --git a/foaf/linkedin2rdf.pl b/foaf/linkedin2rdf.pl index 3e4eb24..3349b73 100755 --- a/foaf/linkedin2rdf.pl +++ b/foaf/linkedin2rdf.pl @@ -20,9 +20,6 @@ my $NAMESPACES= { ical => 'http://www.w3.org/2002/12/cal/icaltzd#', cv => 'http://purl.org/captsolo/resume-rdf/0.2/cv#', hresume => 'http://ontologi.es/hresume#', -# TODO: somehow make RDF::Trine abbreviate labels -# 'xsd:dateTime' => 'http://www.w3.org/2001/XMLSchema#dateTime', -# 'geo:SpatialThing' => 'http://www.w3.org/2003/01/geo/wgs84_pos#SpatialThing', }; my $doc = HTML::Microformats @@ -38,6 +35,6 @@ my $output = rdf_string($model,'RDFXML', ); # TODO: somehow make RDF::Trine generate stable IDs -$output =~ s/(?<=rdf:nodeID=")B[a-f0-9]{32}(?=0[0-9]{3}")//g; +$output =~ s/(?<=rdf:nodeID="B)[a-f0-9]{32}(?=0[0-9]{3}")//g; print $output; |