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

最新推荐文章于 2021-03-19 05:17:27 发布

原创最新推荐文章于 2021-03-19 05:17:27 发布 · 6.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#电话 #perl #csv #手机 #file #mobile

Linux 同时被 2 个专栏收录

29 篇文章

订阅专栏

windows程式设计

9 篇文章

订阅专栏

介绍一种使用Perl脚本将Excel格式的联系人信息转换为手机可用的VCF格式的方法，便于批量导入手机通讯录。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/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;
}