File: example3.pl

package info (click to toggle)
librdf-vcard-perl 0.012-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 280 kB
  • sloc: perl: 1,662; makefile: 5
file content (17 lines) | stat: -rw-r--r-- 268 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl

use strict;
use RDF::vCard;
use Data::Dumper;

my $vc = <<VCARD;
begin:vcard
fn:Test vCard
note;lang=en-gb:This is just a test.
end:vcard
VCARD

my $i = RDF::vCard::Importer->new;
my @cards = $i->import_string($vc, lang=>'en');

print Dumper(@cards);