Документ взят из кэша поисковой машины. Адрес оригинального документа : http://wiki.cmc.msu.ru/pub/Main/WebMailChange/csv_to_vcard_email.pl.txt Дата изменения: Mon Jun 4 00:18:13 2012 Дата индексирования: Mon Oct 1 22:37:31 2012 Кодировка: koi8-r

# 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 < BEGIN:VCARD
VERSION:3.0
FN:$nick
N:$last;$first;;;
EMAIL;type=INTERNET;type=HOME;type=pref:$email
END:VCARD
EOF
}

sub strip_q {
my ($str) = @_;
$str =~ s/"//g;
return $str;
}