免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 483 | 回复: 0

perl处理Excel通讯录,得到vcard的vcf通讯录,分享一下 [复制链接]

论坛徽章:
0
发表于 2019-05-06 15:10 |显示全部楼层
  1. #用perl处理Excel通讯录(从Excel复制到input.txt),最后形成vCard的
  2. #vcf通讯录不乱码,传到手机QQ上,然后打开就可以导入通讯录联系人
  3. #2019年5月6日
  4. ###############################################################
  5. #input.txt文件格式如下:
  6. #第一列姓名,第二列工作单位,第三列手机号,中间空格分开
  7. #或者第一列姓名,第二列手机号,中间空格分开
  8. ###############################################################
  9. #比如输入文件内容如下:
  10. #张三 家里蹲公司 12345678901
  11. #李四 1234567
  12. ###############################################################
  13. #输出内容如下:
  14. #BEGIN:VCARD
  15. #VERSION:2.1
  16. #N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:;=E5=BC=A0=E4=B8=89;;;
  17. #FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:=E5=BC=A0=E4=B8=89
  18. #TEL;CELL:12345678901
  19. #ORG;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:=E5=AE=B6=E9=87=8C=E8=B9=B2=E5=85=AC=E5=8F=B8
  20. #END:VCARD
  21. #BEGIN:VCARD
  22. #VERSION:2.1
  23. #N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:;=E6=9D=8E=E5=9B=9B;;;
  24. #FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:=E6=9D=8E=E5=9B=9B
  25. #TEL;CELL:1234567
  26. #END:VCARD
  27. ###############################################################
  28. #检验网站:记得选择utf-8,而不是GB2312
  29. #web.chacuo.net/charsetquotedprintable
  30. ###############################################################
  31. use MIME::QuotedPrint;
  32. use Encode;
  33. use strict;use warnings;use diagnostics;
  34. #先打开读取文件内容,保存到数组里面
  35. open(FHa,"<input.txt");#读取通讯录
  36. my @data=<FHa>;
  37. close(FHa);
  38. #输出结果
  39. open(FHb,">output_address.vcf");#输出通讯录
  40. foreach my $line (@data)
  41. {
  42.     chomp($line);
  43.     if($line=~m/^\s*(\S+)\s+(\S+)\s+(\d{7,12})\s*$/)#姓名,工作单位,手机号
  44.     {
  45.         my $name=gbbm($1);#姓名编码
  46.         my $corp=gbbm($2);#工作单位
  47.         print FHb "BEGIN:VCARD\n";
  48.         print FHb "VERSION:2.1\n";
  49.         print FHb "N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:;$name;;;\n";
  50.         print FHb "FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:$name\n";#姓名
  51.         print FHb "TEL;CELL:$3\n";#手机号
  52.         print FHb "ORG;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:$corp\n";#工作单位
  53.         print FHb "END:VCARD\n";
  54.     }elsif($line=~m/^\s*(\S+)\s+(\d{7,12})\s*$/)#姓名,手机号
  55.     {
  56.         my $name=gbbm($1);#姓名编码
  57.         print FHb "BEGIN:VCARD\n";
  58.         print FHb "VERSION:2.1\n";
  59.         print FHb "N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:;$name;;;\n";
  60.         print FHb "FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:$name\n";#姓名
  61.         print FHb "TEL;CELL:$2\n";#手机号
  62.         print FHb "END:VCARD\n";
  63.     }else
  64.     {
  65.         print FHb "$line error88888888\n";#8个8,输出错误行的内容以及标志,方便搜索删除
  66.     }
  67. }
  68. close(FHb);

  69. #子函数gbbm(改变编码),改变字符串编码,由于Windows上基本都是cp936复制粘贴,
  70. #所以先把编码从cp936转化成utf-8,然后再转化成QUOTED-PRINTABLE
  71. sub gbbm{
  72.     my($str)=shift(@_);
  73.     $str=encode("utf8",decode("cp936",$str));#编码转换
  74.     $str=encode_qp($str);#QUOTED-PRINTABLE
  75.     chomp($str);#如果有回车就删除掉
  76.     $str=~s/=$//g;#不知道末尾为什么多一个=号,多了就删除掉
  77.     return $str;
  78. }
复制代码


您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

基于案例的 SQL 优化实战训练营

讲师:中电福富特级专家梁敬彬,参与本次课程培训,你将收获:
1. 能编写出较为高效的 SQL;
2. 能解决70%以上的数据库常见优化问题;
3. 能得到老师提供的高效的相关工具和解决方案;
4. 能举一反三,收获不仅仅是 SQL 优化。
现在购票享受8.8折优惠!
----------------------------------------
优惠时间:2019年3月20日前

大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP