vcf_generator.pl

最新推荐文章于 2025-09-07 01:02:55 发布

weixin_34126215

最新推荐文章于 2025-09-07 01:02:55 发布

阅读量72

点赞数

CC 4.0 BY-SA版权

文章标签： python

原文链接：https://my.oschina.net/xiechaoyong/blog/616362

本文介绍了一个使用Perl编写的简单脚本，该脚本能够从特定格式的输入文件中读取联系人信息，并将其转换为VCF格式，便于导入到各种设备或通讯录应用中。

2019独角兽企业重金招聘Python工程师标准>>>

use URI::Escape;
use Encode;
sub qp_encode{
my ($str) = @_;
$strU= encode('utf8',decode('gbk',$str));
$strUri = uri_escape($strU);
$strUri =~ s/%/=/g;
return $strUri;
}
$usage = '
Usage:
perl vcf_generator.pl your_txl
P.S. your_txl format should be like below:
Name Mobile Tel ORG Category
For Example:
XCY 180****4365 - 网运部 临沂电信
';
if($#ARGV < 0){
print $usage;
exit;
}
open RH,$ARGV[0];
@lns = <RH>; chomp @lns;
close RH;
for($i = 0; $i < @lns; $i ++){
@t = split(/\t/,$lns[$i]);
$fname = &qp_encode(substr($t[0],0,3));
$lname = &qp_encode(substr($t[0],2));
$name = &qp_encode($t[0]);
$mobile = $t[1];
$tel = $t[2];
if($tel !~ /-/){ $tel = "0539$tel";}
$org = &qp_encode($t[3]);
$category = &qp_encode($t[4]);
$tpl = "BEGIN:VCARD
VERSION:2.1
N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:$fname;$lname;;;
FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:$name
TEL;CELL;PREF:$mobile
TEL;WORK:$tel
ORG;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:$org
CATEGORIES;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:$category
END:VCARD";
print $tpl . "\n";
}

转载于:https://my.oschina.net/xiechaoyong/blog/616362