#!/usr/bin/perl
my $fn=100;
my $lastfn=0;
while (<>) {
if ($_ =~ (/^\n/)) { $fn+=1; print JOUTFILE "\n"; next;}
if ($fn != $lastfn) {
if (<JOUTFILE>) { print JOUTFILE "quit\n"; }
close(JOUTFILE);
open(JOUTFILE, ">new$fn.vcf");
$lastfn=$fn;
print JOUTFILE "ADD VCARD $_";
} else {
if ($_ =~ (/^END:VCARD/)) { print JOUTFILE $_ . "quit\n"; next;}
print JOUTFILE $_;
}
}
mkdir vcf cd vcf perl ../vconvert.pl ../yourfile.vcf
for i in $(ls new*.vcf); do gpesyncd - ; done
