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

Hey i made it yeap..:)

use strict;
use warnings;

my $filename = $ARGV[0];
my ($name, $number);

open my $fh, "<", "$filename" or die "$!";
open my $fh2, ">", "list.txt" or die "$!";
while(my $line = <$fh>) {
    if( $line =~ /^\s*FN:(\w+\s*\w*)\b/ ) {
        $name = $1;
    }
    elsif( $line =~ /^\s*TEL;TYPE=CELL;TYPE=PREF:([+|(?:91)]?\d{10})\b
+/ ) {
        $number = $1;
        if( defined($name) && defined($number) ) {
            printf $fh2 "%15s -> %d\n", $name, $number ;
        }
    }    
}

close $fh2 or die "$!";
close $fh or die "$!";
[download]

Comment on Re: How to extract Name and No from .vcf file. Download Code

Replies are listed 'Best First'.
Re^2: How to extract Name and No from .vcf file. by pme (Monsignor) on Aug 03, 2015 at 05:56 UTC
How about command line parameter checking? `... my $filename = $ARGV[0]; my ($name, $number); die "Usage: $0 filename\n" unless $filename; # checking command line p +arameter ...` [download]	[reply] [d/l]