免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3558 | 回复: 6
打印 上一主题 下一主题

求文本处理&&encode utf16-le failed [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2012-04-22 12:43 |只看该作者 |倒序浏览
下午好!菜鸟有两问题解决不了:
一、一文本中有
A B
B A
B A
C D
D C
还有其他很多对,只要是前后颠覆的,就视为重复删除,我要的结果为:
A B
C D
目前只会将
A B
B A
B A 变成 A B
特求指救

二、将UTF-16LE的文本Encode成UTF8的时候,总是乱码的,尝试过以下方式:
1)使用 from_to
  1. #!perl -w
  2. use strict;
  3. use IO::File;
  4. use Encode;

  5. my $read_file= IO::File->new("skin.ini");
  6. my $write_file = IO::File->new("r001.txt","w");

  7. while (my $line = $read_file->getline) {
  8.          Encode::from_to($line,"UTF16-LE","UTF-8");
  9.          print $write_file $line;
  10. }
  11. undef $read_file;
  12. undef $write_file;
复制代码
2) 使用过 binmode 或者 encode("utf8",decode(“utf16le”,$line));等,但是从utf8变成gb2312却是正常的。
skin.zip (945 Bytes, 下载次数: 13)



论坛徽章:
2
射手座
日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14
2 [报告]
发表于 2012-04-22 13:07 |只看该作者
回复 1# perlnewbie


    Q1:
  1. echo 'A B
  2. B A
  3. B A
  4. C D
  5. D C' |perl -alne 'if (!$hash{@F[0,1]}++ ){print ; $hash{@F[1,0]}++}'
  6. A B
  7. C D

复制代码

论坛徽章:
0
3 [报告]
发表于 2012-04-22 13:39 |只看该作者
本帖最后由 perlnewbie 于 2012-04-22 13:43 编辑

回复 2# yinyuemi
多谢
@F[0,1]

这个怎么理解
我只懂 $F[0] 指@F的 1元素

数组的数组?

谢谢~~~~~看书去

论坛徽章:
2
射手座
日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14
4 [报告]
发表于 2012-04-22 13:41 |只看该作者
回复 3# perlnewbie


    @ 和 $的区别

论坛徽章:
0
5 [报告]
发表于 2012-04-25 11:13 |只看该作者
问题二也解决拉,真是太帅了
  1. #!perl
  2. use strict;
  3. use warnings;
  4. use Encode;
  5. use autodie;

  6. my $octet;

  7. open FH,"<","skin.ini";
  8. binmode FH;
  9. while (<FH>) {
  10.         $octet.=$_;
  11. }
  12. close FH;

  13. Encode::from_to($octet,"utf16le","utf8");
  14. $octet=~s/^\xEF\xBB\xBF//;

  15. open FH,">","r001.txt";
  16. binmode FH;
  17. print FH $octet;
  18. close FH;
复制代码

论坛徽章:
1
狮子座
日期:2013-12-16 16:09:24
6 [报告]
发表于 2012-04-25 11:56 |只看该作者
回复 5# perlnewbie


BOM的问题呀,
有个文章讲这个的,可以贴在这么??

    UTF-8、BOM、的问题
2011-08-17 20:42:43
标签:feff utf8 BOM
http://smzz.org/node/36


有些编辑器,比如M$ Windows的记事本,在创建UTF8编码文件时会在头部添加一个不可见字符。这个字符可以通过vim查看到,而且如果是一个php文件,php4、php5在解析时均会有输出。
原来这个被称作BOM(Byte Order Mark)的不可见字符,是Unicode用来标识内部编码的排列方式的,在UTF-16、UTF-32编码里它是必需的,而在UTF-8里是可选的。因 此,才会出现有的编辑器在文件头部添加添加BOM、而有的语法解析器又不作处理的的混乱情况。
根据w3c里FAQ的建议,解决方法就是,删无赦!

http://apps.hi.baidu.com/share/detail/35382688


UTF-8编码中BOM的检测与删除
所谓 BOM,全称是Byte Order Mark,它是一个Unicode字符,通常出现在文本的开头,用来标识字节序 (Big/Little Endian),除此以外还可以标识编码(UTF-8/16/32),如果出现在文本中间,则解释为zero width no-break space。

注:Unicode相关知识的详细介绍请参考UTF-8, UTF-16, UTF-32 & BOM。
对于UTF-8/16/32而言,它们名字中的8/16/32指的是编码单位是多少位的,也就是说,它们的编码单位分别是8/16/32位,换算成 字节就是1/2/4字节,如果是多字节,就要牵扯到字节序,UTF-8以单字节为编码单位,所以不存在字节序。
UTF-8主要的优点是可以兼容ASCII,但如果使用BOM的话,这个好处就荡然无存了,除此以外,BOM的存在还可能引发一些问题,比如下面错 误便都有可能是BOM导致的:
Shell: #!/bin/sh: No such file or directory
PHP: Warning: Cannot modify header information – headers already sent
在详细讨论UTF-8编码中BOM的检测与删除问题前,不妨先通过一个例子热热身:
# curl -s http://phone.1008**/ | head -1 | sed -n l
357273277<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional
//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">r$
如上所示,前三个字节分别是357、273、277,这就是八进制的BOM。
# curl -s http://phone.1008**/ | head -1 | xxd
0000000: efbb bf3c 2144 4f43 5459 5045 2068 746d ...<!DOCTYPE htm
0000010: 6c20 5055 424c 4943 2022 2d2f 2f57 3343 l PUBLIC "-//W3C
0000020: 2f2f 4454 4420 5848 544d 4c20 312e 3020 //DTD XHTML 1.0
0000030: 5472 616e 7369 7469 6f6e 616c 2f2f 454e Transitional//EN
0000040: 2220 2268 7474 703a 2f2f 7777 772e 7733 " "http://www.w3
0000050: 2e6f 7267 2f54 522f 7868 746d 6c31 2f44 .org/TR/xhtml1/D
0000060: 5444 2f78 6874 6d6c 312d 7472 616e 7369 TD/xhtml1-transi
0000070: 7469 6f6e 616c 2e64 7464 223e 0d0a tional.dtd">..
如上所示,前三个字节分别是EF、BB、BF,这就是十六进制的BOM。
注:用到了第三方网站的页面,不能保证例子结论始终正确。
实际做项目开发时,可能会面对成百上千个文本文件,如果有几个文件混入了BOM,那么很难察觉,如果没有带BOM的UTF文本文件例子,可以用vi 杜撰几个,相关命令如下:
#设置UTF-8编码
:set fileencoding=utf-8
#添加BOM
:set bomb
#删除BOM
:set nobomb
#查询BOM
:set bomb?
如何检测UTF-8编码中的BOM呢?
shell> grep -I -r -l $'xEFxBBxBF' /path
如何删除UTF-8编码中的BOM呢?
shell> grep -I -r -l $'xEFxBBxBF' /path | xargs sed -i 's/^xEFxBBxBF//;q'
推荐:如果你使用SVN的话,可以在pre-commit钩子里加上相关代码,从源头杜绝BOM。
#!/bin/sh

REPOS="$1"
TXN="$2"

SVNLOOK=/usr/bin/svnlook

FILES=`$SVNLOOK changed -t "$TXN" "$REPOS" | awk {'print $2'}`

for FILE in $FILES; do
CONTENT=`$SVNLOOK cat -t "$TXN" "$REPOS" "$FILE"`

if echo $CONTENT | head -c 3 | xxd -i | grep -q '0xef, 0xbb, 0xbf'; then
echo "BOM!" 1>&2
exit 1
fi
done
篇幅所限,恕不详述,未尽事宜大家就请自己搜索吧。

linux下处理windows utf8文件,发现vim头会多一个

一般默认创建的文件都是ANSI编码的。用记事本打开这个文件,点"另存为",最下面有个"编码(Encoding)"可以选择,里面有"ANSI,utf8"等选项。
下面介绍用直接使用perl创建一个UTF-8的文件
open( OUT, ">:utf8", "a.txt" ) or die "a.out: $!";
print OUT "x{feff}";
print OUT "aaaan";
close OUT;
反过来,删除文件中的头
open (FH, '<:utf8',"$_" ) or die $!;
...
s/x{feff}//;
...

[language: none]

论坛徽章:
0
7 [报告]
发表于 2012-04-25 20:29 |只看该作者
ttcn_cu 发表于 2012-04-25 11:56
回复 5# perlnewbie


  辛苦了,非常感谢啊.CU真是个好地方
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP