如何删除匹配行内的其中一个字符串？

qyaqin

求教~~~~~~~~~~不懂perl...特来求教有没有办法解决？。。谢谢。。。


原始文本：
xr1  n1 n2 segr M=1 w=10u l=0.5u
xr2  n11 n12 segr=1.05e3  M=1 w=12u l=10.5u
xr3  n21 n22 segr=10.2k  M=1 w=210u l=0.5u
xc1 x1 x2 cpip 1.2021e-12 M=1 W=20u  l=2u
xc1 x1 x2 cpip 2.33p  M=1 W=20u  l=2u
C1  k1 k2  cap2 1e-12 W=10u L=1u
C2 k2 k3  cap2 2.01p W=10u l=40u
处理后的文本：
xr1  n1 n2 M=1 w=10u l=0.5u
xr2  n11 n12  M=1 w=12u l=10.5u
xr3  n21 n22  M=1 w=210u l=0.5u
xc1 x1 x2 cpip  M=1 W=20u  l=2u
xc1 x1 x2 cpip  M=1 W=20u  l=2u
C1  k1 k2 1e-12 $cap2 W=10u L=1u
C2 k2 k3 2.01p $cap2 W=10u l=40u


需要进行的处理有：
1．
匹配“xr”开头且包含字符”sgr”的行，删除带有“sgr”的字符串
2．
匹配“xc”开头且包含“cpip”的行，删除“cpip”后面的字符串
3．
匹配“C”开头且包含”cap2”的行，在”cap2” 前加上字符”$”，并移到其后一字符串（数字和单位组成）的后面

[ 本帖最后由 qyaqin 于 2009-12-24 11:21 编辑 ]

climby

我写的，稍微复杂些，仅作参考 :wink:

#! /bin/perl my $file = "sample.txt"; open( FH, "<$file" ) or die "Open file error: $!\n"; my $cap2_flag = 0; while ( my $line = <FH> ) {     # start with 'xr' and with 'segr'     if ( $line =~ /^xr.*segr.*/ ) {         $line =~ s/segr\S*//g;         print $line;         next;     }     # start with 'xc' and with 'cpip'     if ( $line =~ /^xc.*cpip.*/ ) {         $line =~ s/cpip\s*(\S)+/cpip/g;         print $line;         next;     }     # start with 'C' and with 'cap2'     if ( $line =~ /^C.*cap2.*/ ) {         $line =~ s/cap2\s+(\S+\s*)/$1\$cap2 /;         print $line;         next;     }     if ( $cap2_flag == 1 ) {         $line =~ s/^(\S+\s*)/$1\$cap2 /;         print $line;         $cap2_flag = 0;         next;     }     # print the lines needn't parse     print $line;         }    close  FH;

运行结果如下：

1. 
   
2. xr1  n1 n2  M=1 w=10u l=0.5u
   
3. xr2  n11 n12   M=1 w=12u l=10.5u
   
4. xr3  n21 n22   M=1 w=210u l=0.5u
   
5. xc1 x1 x2 cpip M=1 W=20u  l=2u
   
6. xc1 x1 x2 cpip  M=1 W=20u  l=2u
   
7. C1  k1 k2  1e-12 $cap2 W=10u L=1u
   
8. C2 k2 k3  2.01p $cap2 W=10u l=40u
   

复制代码

[ 本帖最后由 climby 于 2009-12-24 12:39 编辑 ]

Perl_Er

1．
匹配“xr”开头且包含字符”sgr”的行，删除带有“sgr”的字符串
s/^(xr)(.*)segr(.*)/$1$2$3/;

2．
匹配“xc”开头且包含“cpip”的行，删除“cpip”后面的字符串
s/^(xc)(.*)cpip(.*)/$1$2/;

3．
匹配“C”开头且包含”cap2”的行，在”cap2” 前加上字符”$”，并移到其后一字符串（数字和单位组成）的后面
s/^(C.*) (.*) (cap2) (.*?) (.*)/$1$2 $4 \$$3 $5/;

[ 本帖最后由 Perl_Er 于 2009-12-24 11:43 编辑 ]

qyaqin

粘贴上来格式就变了。。。。。现已更正！

blackold

xp5211314

楼主给分吧

blackold

1. perl -lpe 's/^(xr.*)(\w*segr\w*\W+)/$1/; s/^(xc.*cpip\W+)([^ ]+)/$1/;s/^(C.*)(cap2\W+)([^ ]+\W+)/$1$3\$$2/;' urfile

复制代码

qyaqin

原帖由 Perl_Er 于 2009-12-24 11:03 发表
1．
匹配“xr”开头且包含字符”sgr”的行，删除带有“sgr”的字符串
s/^(xr)(.*)segr(.*)/$1$2$3/;

2．
匹配“xc”开头且包含“cpip”的行，删除“cpip”后面的字符串
s/^(xc)(.*)cpip(.*)/$1$2/;

3 ...

这个处理结果如下：

[root@lnx33 /tmp]$ perl -lpe 's/^(xr)(.*)segr(.*)/$1$2$3/;s/^(xc)(.*)cpip(.*)/$1$2/;s/^(C.*) (.*) (cap2) (.*?) (.*)/$1$2 $4 \$$3 $5/;' test
xr1  n1 n2  M=1 w=10u l=0.5u
xr2  n11 n12 =1.05e3  M=1 w=12u l=10.5u
xr3  n21 n22 =10.2k  M=1 w=210u l=0.5u
xc1 x1 x2
xc1 x1 x2
C1  k1 k2  $cap2 1e-12  W=10u L=1u
C2 k2 k3  $cap2 2.01p  W=10u l=40u

1、红色部分，也就是等号和数字没有去掉。
2、xc开头的cpip后面部分也不见啦
3、$cap2没有跟后面字符串换换。

qyaqin

原帖由 blackold 于 2009-12-24 12:12 发表
perl -lpe 's/^(xr.*)(\w*segr\w*\W+)/$1/; s/^(xc.*cpip\W+)([^ ]+)/$1/;s/^(C.*)(cap2\W+)([^ ]+\W+)/$1$3\$$2/;' urfile

这个的结果如下：
[root@lnx33 /tmp]$ perl -lpe 's/^(xr.*)(\w*segr\w*\W+)/$1/; s/^(xc.*cpip\W+)([^ ]+)/$1/;s/^(C.*)(cap2\W+)([^ ]+\W+)/$1$3\$$2/;' test
xr1  n1 n2 M=1 w=10u l=0.5u
xr2  n11 n12 1.05e3  M=1 w=12u l=10.5u
xr3  n21 n22 10.2k  M=1 w=210u l=0.5u
xc1 x1 x2 cpip  M=1 W=20u  l=2u
xc1 x1 x2 cpip   M=1 W=20u  l=2u
C1  k1 k2  1e-12  $cap2  W=10u L=1u
C2 k2 k3  2.01p  $cap2  W=10u l=40u


后面都很完美，只可惜红色的数字部分没有去掉哎。。。

qyaqin

原帖由 climby 于 2009-12-24 12:37 发表
我写的，稍微复杂些，仅作参考 :wink:
#! /bin/perl


my $file = "sample.txt";

open( FH, "

这个结果完全对。。。。。。。3Q~~~

也谢谢其他各位的帮助~~~受益匪浅~~有空好好研究研究perl..很强大