如何匹配两个空行之间的行？（结帖）

linuxnextyear

UID: 8338
帖子: 10
积分: 23
在线时间: 10 分钟

1^# linuxnextyear 发表于 2008-02-26 11:28

如何匹配两个空行之间的行？（结帖）

这个用perl如何实现呢？

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-02-26 13:07

QUOTE:

原帖由 linuxnextyear 于 2008-2-26 11:28 发表
这个用perl如何实现呢？

try the following code

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
my $text = shift;
open my $file,"<","$text" or die "Fail to open $text $!";
while(<$file>){
print if (/^\s*$/.../^\s*$/);
}

运行结果

QUOTE:

<lig@other-server:~/chinaunix>$ cat data
ajflasjfl

fljslfjslfjls
jslfjdkeurie
souosuofusof

sjfsjf
fsjlfsjlfsjlf
sfjsfjl

QUOTE:

<lig@other-server:~/chinaunix>$ ./lines data

fljslfjslfjls
jslfjdkeurie
souosuofusof

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

3^# churchmice 发表于 2008-02-26 13:22

或者你直接mark一下
第一次碰到空行的时候设置一个flag
第二次碰到了就unset flag

linuxnextyear

UID: 8338
帖子: 10
积分: 23
在线时间: 10 分钟

4^# linuxnextyear 发表于 2008-02-26 13:23

多谢楼上的，这个方法我试过，这个连空行也给打印出来了！

如何不把空行打印出来呢？

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

5^# churchmice 发表于 2008-02-26 13:54

QUOTE:

原帖由 linuxnextyear 于 2008-2-26 13:23 发表
多谢楼上的，这个方法我试过，这个连空行也给打印出来了！

如何不把空行打印出来呢？

简单

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
my $text = shift;
open my $file,"<","$text" or die "Fail to open $text $!";
my @candidate;
while(<$file>){
push @candidate ,$_ if (/^\s*$/.../^\s*$/);
}
pop @candidate;
shift @candidate;
print @candidate;

QUOTE:

<lig@other-server:~/chinaunix>$ cat data
ajflasjfl

fljslfjslfjls
jslfjdkeurie
souosuofusof

sjfsjf
fsjlfsjlfsjlf
sfjsfjl
<lig@other-server:~/chinaunix>$ ./lines data
fljslfjslfjls
jslfjdkeurie
souosuofusof

注意@candidate打印是不能加""

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

6^# mouse.rice 发表于 2008-02-26 14:26

QUOTE:

my $text = shift;

这行是什么意思啊？

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

7^# churchmice 发表于 2008-02-26 14:31

QUOTE:

原帖由 mouse.rice 于 2008-2-26 14:26 发表

这行是什么意思啊？

在这里shift默认操作对象是@ARGV
也就是
my $text = shift @ARGV;

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

8^# churchmice 发表于 2008-02-26 14:35

QUOTE:

原帖由 linuxnextyear 于 2008-2-26 13:23 发表
多谢楼上的，这个方法我试过，这个连空行也给打印出来了！

如何不把空行打印出来呢？

或者

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
my $text = shift;
open my $file,"<","$text" or die "Fail to open $text $!";
while(<$file>){
print if (/^\s*$/.../^\s*$/ and not /^\s*$/);
}

就是加一个判断是否是空行的regex
注
空行我理解为\s*
如果是纯粹意义上的空行
将上面的/^\s*$/用/^$/代替

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

9^# mouse.rice 发表于 2008-02-26 14:52

QUOTE:

原帖由 churchmice 于 2008-2-26 14:31 发表

在这里shift默认操作对象是@ARGV
也就是
my $text = shift @ARGV;

请教，在这里，这个@ARGV代表什么参数？关于@ARGV一直没有理解透彻。总感觉Perl语法很微妙！多谢了！

linuxnextyear

UID: 8338
帖子: 10
积分: 23
在线时间: 10 分钟

10^# linuxnextyear 发表于 2008-02-26 15:15

QUOTE:

原帖由 mouse.rice 于 2008-2-26 14:52 发表

请教，在这里，这个@ARGV代表什么参数？关于@ARGV一直没有理解透彻。总感觉Perl语法很微妙！多谢了！

@ARGV是命令行参数列表：

[Copy to clipboard] [ - ]

CODE:

[root@localhost perl]# more gmm.pl
#!/usr/bin/perl

print "@ARGV";
[root@localhost perl]# perl gmm.pl 1 2 3
1 2 3[root@localhost perl]#

还有能不能帮忙解释一下这段的意思：

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
open(FILE,"mail.txt") || die "error: $!";
$_ = join '',<FILE>;
#print $_;
print $1 while /^\s*\n(^.+\n)(?=^\s*\n)/gm;