Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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
Domain Nodelet?
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 perusing the Monastery: (4)
As of 2022-11-29 11:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?