File: microformats-to-rdf.pl

package info (click to toggle)
libhtml-microformats-perl 0.105-6
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 1,340 kB
  • sloc: perl: 14,121; makefile: 10; sh: 1
file content (14 lines) | stat: -rwxr-xr-x 296 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl

use 5.010;
use strict;

use HTML::Microformats;
use LWP::Simple qw(get);

my $uri  = shift @ARGV or die "Please provide URI\n";
my $html = get($uri);
my $doc  = HTML::Microformats->new_document($html, $uri);
$doc->assume_all_profiles;

say $doc->serialise_model(as => 'turtle');