poppen · March 19, 2013 04:35
diff --git a/vcf2tsv.pl b/vcf2tsv.pl
 #!/usr/bin/env perl

 use strict;
 use warnings;
 use feature qw( say );

 use Text::vCard::Addressbook;

 my $address_book = Text::vCard::Addressbook->new(
    { 'source_file' => $ARGV[0], }
 );

 foreach my $vcard ( $address_book->vcards() ) {
    say $vcard->fullname() . "\t" . $vcard->EMAIL();
 }
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use feature qw( say );

	use Text::vCard::Addressbook;

	my $address_book = Text::vCard::Addressbook->new(
	{ 'source_file' => $ARGV[0], }
	);

	foreach my $vcard ( $address_book->vcards() ) {
	say $vcard->fullname() . "\t" . $vcard->EMAIL();
	}
No results found