perl 生成 .vcf文件 以导入电话

#!/usr/bin/perl -w
use strict;

=head--comment
    公司发布的通信录是以excl文件的形式,要导入我的电话中肯定不行拉,电话
需要.vcf文件格式(lephone),也就是用91手机助手(AD)导入....

思路:
1.把excle表格中的信息复制出来,保存为csv文件(可以是/t或是,为分隔符都行),
  命名为phone.csv(这样就不用改角本),放到与角本相同目录下
2.运行角本,自动生成以名字命名的.vcf文件;
3.运行91手机助手,哈哈导入吧....


.vcf文件格式解释:http://baike.baidu.com/view/495045.htm

简单样式如下:

BEGIN:VCARD
N:姓名;;;;
ORG:单位
TEL;CELL:手机电话
EMAIL;PREF:主要的Email
X-IM;QQ:QQ号
CATEGORIES:信息中的分组
VERSION:3.0
END:VCARD

=cut

#  打开源信息文件  -- csv
open (FILEHANDLE,"phone.csv") or die "This file can not open! $!/n";
my @org = <FILEHANDLE>;   # read data from $inputDataFile
chomp(@org);
close FILEHANDLE;


# 对每一条记录进行操作:
foreach my $orgmsg (@org) {
    # 分解文件信息
    my ($name, $MOBILE, $ORG, $EMAIL, $MSN) = split(//t/,$orgmsg);
   
    # 新建一个.vcf文件
    open (FILEHANDLEGREATE, ">$name.vcf") or die "This file can not open! $!/n";

    print FILEHANDLEGREATE "BEGIN:VCARD/n";
    print FILEHANDLEGREATE "N:$name;;;;/n";
    print FILEHANDLEGREATE "ORG:$ORG/n";
    print FILEHANDLEGREATE "TEL;CELL:$MOBILE/n";
    print FILEHANDLEGREATE "EMAIL;PREF:$EMAIL/n";
    print FILEHANDLEGREATE "X-IM;WindowsLive:$MSN/n";
    print FILEHANDLEGREATE "CATEGORIES:$ORG/n";
    print FILEHANDLEGREATE "VERSION:3.0/nEND:VCARD/n";  
   
    close FILEHANDLEGREATE;
}

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值