Chinaunix首页 | 论坛 | 博客
  • 博客访问: 240818
  • 博文数量: 3
  • 博客积分: 10
  • 博客等级: 民兵
  • 技术积分: 37
  • 用 户 组: 普通用户
  • 注册时间: 2012-09-04 15:12
文章分类

全部博文(3)

文章存档

2019年(1)

2014年(2)

我的朋友

分类: PERL

2019-05-06 12:02:09

代码写得太好了,注释写得太好了,就不多介绍了!


  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. #http://web.chacuo.net/charsetquotedprintable
  30. ###############################################################
  31. use MIME::QuotedPrint;
  32. use Encode;
  33. use strict;use warnings;use diagnostics;
  34. #先打开读取文件内容,保存到数组里面
  35. open(FHa,');#读取通讯录
  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. }

#用perl处理Excel通讯录(从Excel复制到input.txt),最后形成vCard的
#vcf通讯录不乱码,传到手机QQ上,然后打开就可以导入通讯录联系人
#2019年5月6日
###############################################################
#input.txt文件格式如下:
#第一列姓名,第二列工作单位,第三列手机号,中间空格分开
#或者第一列姓名,第二列手机号,中间空格分开
###############################################################
#比如输入文件内容如下:
#张三 家里蹲公司 12345678901
#李四 1234567
###############################################################
#输出内容如下:
#BEGIN:VCARD
#VERSION:2.1
#N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:;=E5=BC=A0=E4=B8=89;;;
#FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:=E5=BC=A0=E4=B8=89
#TEL;CELL:12345678901
#ORG;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:=E5=AE=B6=E9=87=8C=E8=B9=B2=E5=85=AC=E5=8F=B8
#END:VCARD
#BEGIN:VCARD
#VERSION:2.1
#N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:;=E6=9D=8E=E5=9B=9B;;;
#FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:=E6=9D=8E=E5=9B=9B
#TEL;CELL:1234567
#END:VCARD
###############################################################
#检验网站:记得选择utf-8,而不是GB2312
#http://web.chacuo.net/charsetquotedprintable
###############################################################
use MIME::QuotedPrint;
use Encode;
use strict;use warnings;use diagnostics;
#先打开读取文件内容,保存到数组里面
open(FHa,'
my @data=;
close(FHa);
#输出结果
open(FHb,'>output_address.vcf');#输出通讯录
foreach my $line (@data)
{
    chomp($line);
    if($line=~m/^\s*(\S+)\s+(\S+)\s+(\d{7,12})\s*$/)#姓名,工作单位,手机号
    {
        my $name=gbbm($1);#姓名编码
        my $corp=gbbm($2);#工作单位
        print FHb "BEGIN:VCARD\n";
        print FHb "VERSION:2.1\n";
        print FHb "N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:;$name;;;\n";
        print FHb "FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:$name\n";#姓名
        print FHb "TEL;CELL:$3\n";#手机号
        print FHb "ORG;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:$corp\n";#工作单位
        print FHb "END:VCARD\n";
    }elsif($line=~m/^\s*(\S+)\s+(\d{7,12})\s*$/)#姓名,手机号
    {
        my $name=gbbm($1);#姓名编码
        print FHb "BEGIN:VCARD\n";
        print FHb "VERSION:2.1\n";
        print FHb "N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:;$name;;;\n";
        print FHb "FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:$name\n";#姓名
        print FHb "TEL;CELL:$2\n";#手机号
        print FHb "END:VCARD\n";
    }else
    {
        print FHb "$line error88888888\n";#8个8,输出错误行的内容以及标志,方便搜索删除
    }
}
close(FHb);

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


阅读(234247) | 评论(0) | 转发(0) |
0

上一篇:【Perl编程金典】特殊变量@ARGV和<>

下一篇:没有了

给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册