# BEGIN:VCARD # VERSION:3.0 # FN:ΑΜΙΑΣ # N:ζΑΝΙΜΙΡ;ιΝΡ;;; # EMAIL;type=INTERNET;type=HOME;type=pref:email@ru # END:VCARD # # example input: # "nickname","name","First Name","Last Name","E-mail Address","label" while (<>) { chomp; my @f = (split(/,/, $_)); if (defined $f[6] || ! $f[5] ) { print STDERR "Error in line: $_\n"; next; } my $first = strip_q($f[2]); my $last = strip_q($f[3]); my $email = strip_q($f[4]); #my $nick= $f[0]; my $nick= "$first $last"; print <