循环跳转到行号

Li_0817

求助，如果一次循环读入两行，第一次循环读入1,2行，要使第二次循环读入2,3行，第三次循环读入3,4行该如何弄

zhlong8

动动脑子啊亲

Li_0817

回复 2# zhlong8
自己弄的出来就不问了


   

Li_0817

大神就告诉我一下啦
回复 2# zhlong8


   

zhlong8

my $a = <>;

while (<>) {
    my $b = $_;
    process($a, $b);
    $a = $b;
}

Li_0817

出现这个错误Undefined subroutine &main::process called at filter1.pl line 10, <IN> line 1.
回复 5# zhlong8


   

zhlong8

回复 6# Li_0817


    $a, $b 就是你每次循环需要的那两行，想怎么处理（process）就这么处理，你又没告诉我你要干什么我就随便起个函数名啊

Li_0817

回复 6# Li_0817
我把我想做的内容描述下，数据如下

data：
dh1 415999 416087 88 mk13 27171804 27171716 88
dh1 508761 508885 124 mk23 6118561 6118693 132
dh1 875647 875809 162 mk4 7639071 7638910 161
dh1 875654 875809 155 mk17 25417195 25417350 155
dh1 875665 875810 145 mk17 29163701 29163846 145
dh1 875665 875810 145 mk5 26725654 26725799 145
dh1 875672 875810 138 mk14 28336193 28336331 138
dh1 875686 875809 123 mk13 6776767 6776644 123
dh2 875693 875809 116 mk12 5953120 5953004 116
dh2 875705 875809 104 mk6 4434342 4434446 104

首先，如果第1列相同，下一行的第2列比上一行第3列大，则全部打印出所有行，如果第1列相同，下一行的第2列比上一行的第3列小，并且下一行的第4列比上一行的第4列小，则打印上一行，如果下一行的第4列比上一行的第4列大，则打印下一行。
最终想要的结果如下

result：
dh1 415999 416087 88 mk13 27171804 27171716 88
dh1 508761 508885 124 mk23 6118561 6118693 132
dh1 875647 875809 162 mk4 7639071 7638910 161
dh2 875693 875809 116 mk12 5953120 5953004 116
   

MMMIX

回复 8# Li_0817


    你自己按照这个规则把示例程序中的 process 实现了不就完了?

清泉一边

数字太大了，看着揪心~我帮你顶一下，等别人帮你写吧~回复 1# Li_0817