perl如何处理多行文本

shi6091591142

加入一个文本为a，内容是：aa
c
d
e
aa
h
k
adaf
df
aa
afdaf
afd
bb
afda
bb
,怎么能把所有aa之间的内容删掉？

knowhow1268

如下：
#! /usr/bin/perl

$^I = "";
@ARGV = "/root/aaa.txt";
while (<>){
        s/a.*a/aa/g;
        print;
}

sjtusonic

加入一个文本为a，内容是：aa
c
d
e
aa
h
k
adaf
df
aa
afdaf
afd
bb
afda
bb
,怎么能把所有 ...
shi6091591142 发表于 2014-11-13 10:40

                               
登录/注册后可看大图

你的意思是删除“aa”行之间的所有行吧？

flag=0


if line=~/^aa$/
flag=1


if flag==1 {
if line!~/^aa$/{
line=~s/^.*$//
}else{
flag=0
}
}

xxmule

这个不在aa之间的也会被删除的吧


回复 3# sjtusonic

sjtusonic

这个不在aa之间的也会被删除的吧


回复  sjtusonic
xxmule 发表于 2014-11-17 17:05

                               
登录/注册后可看大图

   写后没调试，貌似语句顺序上有些bug，应该这样子吧：

flag=0

if flag==0 {


if line=~/^aa$/ {
flag=1
}
} else {
if line!~/^aa$/{
line=~s/^.*$//
}else{
flag=0
}
}

xxmule

能否给个完整的版本，谢谢

回复 5# sjtusonic

chenfengrugao

回复 1# shi6091591142

use strict;

open(FIN, "<aa.txt");

my $file = "";

while(<FIN>){
    $file .= $_;
}

$file =~ s/(aa).*(aa)/$1\n$2/gs;     #s -- treat as single line, '.*' can also match '\n'

print "$file";

xxmule

treat as single line 这个牛
回复 7# chenfengrugao

sjtusonic

回复  shi6091591142

use strict;

open(FIN, "
chenfengrugao 发表于 2014-11-18 11:55

                               
登录/注册后可看大图

   写得好！

另外，找到这个网页看起来不错：
http://marlonyao.iteye.com/blog/1013248

shi6091591142

回复 7# chenfengrugao


   very nice