Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: How to extract Name and No from .vcf file.

by kevbot (Priest)
on Aug 03, 2015 at 05:45 UTC ( #1137210=note: print w/replies, xml ) Need Help??


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 file
BEGIN:VCARD VERSION:3.0 N:;Naresh;;; FN:Naresh TEL;TYPE=CELL;TYPE=PREF:+917734807608 END:VCARD
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;
Output of test.pl
Name: Naresh Preferred Phone Number: +917734807608

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1137210]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2020-10-22 18:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (229 votes). Check out past polls.

    Notices?