contacts_extractor

# Create a readable summary of your VCF contacts file
# (extracts contact name and phone number only)

my $input = "contacts.vcf";
my $output = "contacts_summary.txt";

open(input, "<", $input)
    or die "Cannot open input file $input $!\n";
open(output, ">", $output)
    or die "Cannot open output file $output $!\n";

my @lines, $linecut;

@lines = <input>;

for($i = 1; $i < @lines.length; $i++) {
    $linecut = @lines[$i];
    if($linecut =~ /^(N:|TEL;)/) {print output $linecut};
}

print "Complete!\n"