in reply to How to extract Name and No from .vcf file.
Hello shankonit,
I see that pme already showed you working code for parsing the file yourself. Alternatively, you could use the vCard module to access the data in your vcf files. For example,
file.vcf, Note: the vCard module requires windows line endings in the vcf filetest.plBEGIN:VCARD VERSION:3.0 N:;Naresh;;; FN:Naresh TEL;TYPE=CELL;TYPE=PREF:+917734807608 END:VCARD
Output of test.pl#!/usr/bin/env perl use strict; use warnings; use vCard; my $vcard = vCard->new; $vcard->load_file('file.vcf'); print "Full Name: ", $vcard->full_name, "\n"; my $pref_phone_num; foreach my $phone ( @{$vcard->phones} ){ if($phone->{preferred} == 1){ $pref_phone_num = $phone->{number}; } } print "Preferred Phone Number: ", $pref_phone_num, "\n"; exit;
Name: Naresh Preferred Phone Number: +917734807608
|
---|
In Section
Seekers of Perl Wisdom