1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
use lib "lib";
use HTML::Microformats;
use RDF::TrineShortcuts;
use strict;
my $html = <<'HTML';
<div class="vcard" lang="en">
<span class="fn">Joe Bloggs</span>
<span class="anniversary">Anniversary: <time class="value" datetime="20061014">14 Oct</time></span>
<span class="note">Joe Bloggs</span>
<p class="tel">
<span class="type">Home</span>
<span class="type">isdn</span>
<span class="value">tel:+441234</span>
<span class="value">567</span>
<span class="value">890</span>
<p class="organization-name">Test Company</p>
<p class="tel"><span class="type" title="work">Tel.: </span><abbr title="+18196234310;ext=5451" class="value">819 623-4310 p.5451</abbr></p>
<p class="tel"><a href="tel:+18196234310;ext=5452" class="value">819 623-4310 p.5452</a></p>
<div class="adr">
<span class="type">intl</span>:
<span class="country-name">France</span>
<span class="geo">
<!-- <span class="reference-frame">My crazy <span class="body">Earth</span> co-ordinates</span> -->
12.34, 56.78
</span>
</div>
<div class="agent vcard">
<span class="fn">007</span>
</div>
</div>
<div class="figure">
<img class="image" src="photo.jpeg" alt="">
<p class="legend">
<a rel="tag" href="http://en.wikipedia.org/wiki/Photography">Photo</a>
of <span class="subject">Albert Einstein</span> by
<span class="vcard credit">
<span class="fn">Paul Ehrenfest</span>
(<span class="role">photographer</span>)
</span>
</p>
</div>
<div class="vcard" id="celso-hcard">
<span class="fn n">
Olá! Meu nome é <span class="given-name">Celso</span>
<span class="family-name">Fontes</span>
</span><br/>
Meu email é: <span class="email"> celsowm@gmail.com </span>
</div>
HTML
my $doc = HTML::Microformats->new_document($html, 'http://example.net/');
$doc->assume_all_profiles;
print $doc->json(pretty=>1, convert_blessed=>1);
print rdf_string($doc->model, 'rdfxml');
foreach my $hcard ($doc->objects('hCard'))
{
print "# ---\n";
print $hcard->to_vcard;
print "# -\n";
print $hcard->to_vcard4;
print "# -\n";
print $hcard->to_vcard4_xml;
}
foreach my $g ($doc->objects('geo'))
{
print "# ---\n";
print $g->to_kml;
}
|
