请问： 如何去除文本里面的空格和空行的问题。

james_zhenghao

$Line =~ s/^\s*\n//mg; 这样不能去除空行的问题。
求助~~

Cu_fans

$Line =~ s/^\s$//;

这样试下

id_for_fun

无头冤案

socyno

确定嘛，我是了是，似乎没有问题啊， 下面是我用的测试代码

1. perl -e "my $line = qq/\f\t\n  \r\n asd\n  \n \n  asdf\n \n/; $line =~ s/^\s*\n//mg; use Data::Dump; Data::Dump::dump( $line )"

复制代码

james_zhenghao

回复 2# Cu_fans


    这样不行诶~~

james_zhenghao

回复 4# socyno


    不行啊，是不是我的版本有问题，我的是5.8.5

socyno

有图有真相的，版本是 strawberry perl 5.8.9

james_zhenghao

不行，不过还是谢了~~

wxlfh

1. open my $fh,"<","your_file";
   
2. my @lines;
   
3. while (<$fh>) {
   
4.     chomp;
   
5.     next if /^\s*$/;    #略过空行
   
6.     s/\s//g;            #去除空格
   
7.     push @lines,"$_\n";
   
8. }
   
9. print "@lines";

复制代码

james_zhenghao

回复 9# wxlfh


    多谢！ 顺便问一下，如果要把第一行和第二行合并，改怎么做，如遇到有特殊符号 "|"  “X“ "!" 之类的该怎么办啊 ？