perl牛人请进

wyp06

UID: 40910
帖子: 42
积分: 96
在线时间: 2 小时

1^# wyp06 发表于 2008-11-19 18:05

perl牛人请进

perl牛人请进
列1 列2 列3 列4
0x40 g1 g2 g3
0x00 g2 g3 g6
0x01 g1 g3 g0
如何用perl检索上一行的列4与下一行的列2或列3的字符是否一样？
大牛谢谢了！！！！！

大笨鸟

UID: 45297
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# 大笨鸟发表于 2008-11-24 02:23

这么难呀！.

beckheng

UID: 3408
帖子: 87
积分: 200
在线时间: 10 小时

3^# beckheng 发表于 2008-11-24 15:10

[CCB]2[/CCB].

luoyong

UID: 32408
帖子: 3
积分: 6
在线时间: 10 分钟

4^# luoyong 发表于 2008-11-30 13:35

[quote]--#!/usr/bin/pe.

#!/usr/bin/perl -W

use strict;
use warnings;

my $str = << "__END__";
0x40 g1 g2 g3
0x00 g2 g3 g6
0x01 g1 g3 g0
__END__

my $previous_column4 = "";

my @matched_lines;

while ($str =~ /((\S+?)\s+?(\S+?)\s+?(\S+?)\s+?(\S+?)\b)/g) {

if (($3 eq $previous_column4) and ($4 eq $previous_column4)) {

push @matched_lines, $1;
}

$previous_column4 = $5;
}

print @matched_lines;