免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 2664 | 回复: 2

perl能按字符读gbk编码的文件吗? [复制链接]

论坛徽章:
1
操作系统版块每日发帖之星
日期:2016-06-12 06:20:00
发表于 2017-12-24 23:29 |显示全部楼层
比如  文件是  e5ad.txt   (保存成gbk编码)  内容是 瀛11111
  1. binmode(STDIN, ":GBK");
  2. binmode(STDOUT, ":GBK");
  3. binmode(STDERR, ":GBK");
  4. my  $in_file="e5ad.txt";
  5. open FH, '<:encoding(GBK)',  $in_file;
  6. my $read;
  7. while ($read = read FH, $char, 1) {
  8. print $char;

  9. printf(" -->%x",ord($char));
  10. print "\n";
  11. }
复制代码


期望的读出来是
瀛 --> e5ad
1  --> 31

但是显示的是瀛 -->701b





论坛徽章:
11
子鼠
日期:2014-10-11 16:46:4815-16赛季CBA联赛之山东
日期:2017-11-10 14:32:142016科比退役纪念章
日期:2017-09-02 15:42:4715-16赛季CBA联赛之佛山
日期:2017-08-28 17:11:5515-16赛季CBA联赛之浙江
日期:2017-08-24 16:55:1715-16赛季CBA联赛之青岛
日期:2017-08-17 19:55:2415-16赛季CBA联赛之天津
日期:2017-06-29 10:34:4315-16赛季CBA联赛之四川
日期:2017-05-16 16:38:55黑曼巴
日期:2016-07-19 15:03:112015亚冠之萨济拖拉机
日期:2015-05-22 11:38:532016科比退役纪念章
日期:2018-03-16 10:24:05
发表于 2017-12-25 16:22 |显示全部楼层
本帖最后由 523066680 于 2017-12-25 17:37 编辑

回复 1# yakczh_cu

open FH, '<:encoding(GBK)',  $in_file;

这句等于按 GBK 解码成 UNICODE (国际统一编码),
所以 ord($char) 得到的是统一码,要显示 gbk 码,需要再 encode 一次

  1. use Encode;
  2. my $in_file="e5ad.txt";
  3. open FH, '<:encoding(GBK)',  $in_file;
  4. my ( $char_uni, $char_gbk );

  5. while ( read(FH, $char_uni, 1) )
  6. {
  7.     $char_gbk = encode('gbk', $char_uni);
  8.     printf "%s -> ", $char_gbk;
  9.     # 因为汉字GBK编码分为两个字节,所以要分别 ord 取值
  10.     grep { printf "%x", ord($_) } split(//, $char_gbk);
  11.     printf "\n";
  12. }

  13. close FH;
复制代码

  1. grep { printf "%x", ord($_) } split(//, $char_gbk);
复制代码

这句也可以改为

  1. $char_gbk =~s/(.)/printf "%x", ord($1)/ge;
复制代码




论坛徽章:
0
发表于 2018-01-03 14:51 |显示全部楼层
本帖最后由 本友会机友会摄友会 于 2018-01-26 16:10 编辑

这道题有点意思。

用解码gbk的方法:解码gbk后,就没有源码了,还要转换回去。感觉脱了裤子放p。

还有一种解题方法:
读入2字节,假若第一个字节大于127,则合并2字节,然后输出。【e5ad】
假若第一个字节小于127,则分别输出。【31】
如此类推。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

【CUer福利】柯尼卡美能达2018数字化整合解决方案巡展
智领共创链动价值-2018数字化整合解决方案巡展

2018年11月,柯尼卡美能达携手主流IT网络媒体IT168及旗下ITPUB、ChinaUnix等论坛,特此邀请企业IT管理、运维人员/办公设备采购负责人员共同参与,分享柯尼卡美能达“智领共创链动价值”-2018数字化整合解决方案巡展!现场体验MOBOTIX智能视频监控解决方案!

活动入口>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP