localrdf2vcard



#!/usr/bin/perl
# Copyright © 2015 Jonas Smedegaard <dr@jones.dk>
# Description: Recode RDF file(s) to vCard data on STDOUT
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
# Depends: librdf-vcard-perl

use strict;
use warnings;

use RDF::vCard::Exporter;

my $exporter = RDF::vCard::Exporter->new;

while (my $input = shift @ARGV) {
    print $_ foreach $exporter->export_cards( $input, sort => 1 );
}