请教文本处理问题

zhouweizhw

比如说有个字符串：
  
   xl=2.2  xn='sc * nf  * 1.0 '   mu=tom*sc/nf    tot='   sig* 1.5'  

怎样只把引号里面的空格去掉， 使它变成：
     
      xl=2.2  xn='sc*nf*1.0'   mu=tom*sc/nf    tot='sig*1.5'

7looki

回复 1# zhouweizhw

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $string = "xl=2.2  xn='sc * nf  * 1.0 '   mu=tom*sc/nf    tot='   sig* 1.5' ";
   
7. print "$string\n";
   
8. 
   
9. $string =~ m/[^']+?('[^']+?')[^']+?('[^']+?')/;
   
10. 
    
11. my ( $a,$b ) = ($1,$2);
    
12. $a =~ s!\s!!g;
    
13. $b =~ s!\s!!g;
    
14. 
    
15. $string =~ s/([^']+?)('[^']+?')([^']+?)('[^']+?')/$1$a$3$b/g;
    
16. 
    
17. print "$string\n";

复制代码

执行结果:
xl=2.2  xn='sc * nf  * 1.0 '   mu=tom*sc/nf    tot='   sig* 1.5'
xl=2.2  xn='sc*nf*1.0'   mu=tom*sc/nf    tot='sig*1.5'


比较菜, 写的比较丑, 勿笑.

yizhengming

1. $line = "xl=2.2  xn='sc * nf  * 1.0 '   mu=tom*sc/nf    tot='   sig* 1.5'";
   
2. $line =~ s/'([^']+)'/$_=$1;s{\s}{}g;"'".$_."'"/ge;

复制代码

7looki

回复 3# yizhengming


    牛

zhouweizhw

回复 2# 7looki

谢谢。

字符串里面单引号括起的表达式的个数是不固定的。

我的目的是把引号里面的空格去掉后，就可以用split来拆分了。  
分割符不能选择“=” ， 因为字符串里还有其他一些东西。 例如：

  item1  iem2  x1=value1  x2='value2 *  x3   '   x3='  v4+5 '   v4='v0  /3  '   item3  item4  ........


   

7looki

回复 5# zhouweizhw


    用三楼的, 我验证了, 他的正则可以满足你的要求.

zhouweizhw

回复 3# yizhengming

厉害。搞定了。多谢。

当时也是把引号里面的抓出来后，不晓得在同一个s///里怎样对$1进行处理。
学习了！


   

gaoyang636

回复 3# yizhengming


    能一行写出来的都是硬本事 :wink:

b114213903

yizhengming 发表于 2012-10-11 23:43

学习了！！！

jason680

other way to remove space by rm_sp subroutine
maybe it can easy to understand the code

    $line =~ s/('[^']*')/rm_sp($1)/ge;

    sub rm_sp{
      (my $x = $_[0])=~ s/\s+//g;
      return $x;
    }