Perl读取文件

wangwei88820

各位大虾，如题。我想读取一个文件，始终没有我想要的效果，我读取的效果是都包含了很多的空格。我希望不要这些空格。希望大家帮帮忙。下面是要读取的文件，由于不能支持该格式的文件上传，所以就打了一个压缩包。 3rd_fonetv.rar (1.65 KB, 下载次数: 39)

2011-03-23 16:19 上传

点击文件名下载附件
要读取的文件

wangwei88820

怎么没人帮我呢，我再补充说一下咯，就是读取unicode文件，大家帮帮忙啊，谢谢啦。

liuqiao007

#!/usr/bin/perl


open (DF,"3rd_fonetv.pkg") or die "Can't open file:$!\n";


while(<DF>;){

        s/ .*//sig;
        print ;
}

liuqiao007

#!/usr/bin/perl


open (DF,"3rd_fonetv.pkg") or die "Can't open file:$!\n";


while(<DF>){

        s/\s+//sig;
        print ;
}

wangwei88820

#!/usr/bin/perl


open (DF,"3rd_fonetv.pkg" or die "Can't open file!\n";


while(){

     ...
liuqiao007 发表于 2011-03-24 10:21

   不行，两种方法都试过啦，还是有空格。

jason680

你都说了是unicode怎会是空格....
请自行参考use utf8;

http://perldoc.perl.org/utf8.html

wangwei88820

你都说了是unicode怎会是空格....
请自行参考use utf8;
jason680 发表于 2011-03-24 13:07

    惭愧啊，英文他不认识我我也不认识他，但是里面只介绍了它的几个实用方法，方法的说明我都看不懂。