連続値の抽出とすべての行の印刷

Question

値が4行以上連続している場合（col1の値が同じ場合）、すべての行（4つ以上の行を印刷する必要があります）を出力する必要があります。

col1の値が等しく、col2とcol3の値が次の4行以上連続して連続している場合は、それらの行を返します。行のcol3の値は、次の行のcol2の値と等しいか、または100までしか小さくすることはできません。

ここで、連続とは1行（1行のcol3-col2）を意味するものではありません。これは、次の行のcol2値と比較して、行のcol3値を意味します。

私のファイルがある - >

 
A 0 100 
A1 0 100 
A1 100 200 
A1 200 300 
A1 400 500 
A1 500 600 
A1 600 700 
A1 700 800 
A1 1600 1700 
A2 100 200 
A2 200 300 
A2 400 500 
A2 500 600 
A2 600 700 
A3 800 900 

所望の出力は - >

 
A1 0 100 
A1 100 200 
A1 200 300 
A1 400 500 
A1 500 600 
A1 600 700 
A1 700 800 
A2 100 200 
A2 200 300 
A2 400 500 
A2 500 600 
A2 600 700

ここで1以上の例がある - >私の入力ファイル - >

 
A 0 100 
A1 0 100 
A1 100 200 
A1 200 300 
A1 500 600 
A1 600 700 
A1 700 800 
A1 1600 1700 
A2 100 200 
A2 200 300 
A2 400 500 
A3 800 900 

出力 - >

"No lines continuou 「s」。

出力がありません。次の行と比較すると、同じcol1値を持ち、col3値が100以下でなければならないので、出力はありません。

は、これまでのところ私はこれを試みたが、動作していない - >

use strict; 
use warnings; 

*ARGV or die "No input file specified"; 
open *first, '<',$ARGV[0] or die "Unable to open input file: $!"; 
my @data; 
while (<first>) { 

    if (not @data) { 
    @data = split; 
    next; 
    } 

    my @new = split /\s+/; 

    if ($new[0] eq $data[0] and $new[1] <= $data[2]+ 100) { 
    $data[2] = $new[2]; 
      if ($data[2] - $data[1] >= 500){ 
      print join("\t", @new), "\n"; 
      } 
    } 

    else { 
    @data = @new; 
    } 
} 

すべてのヘルプしてください。

Answer 1

方法について：

#!/usr/bin/perl 
use strict; 
use warnings; 
use Data::Dump qw(dump); 
use 5.010; 

$_ = <DATA>; 
chomp; 
my ($p_key, $p_col1, $p_col2) = split; 
my @result = ($_); 
open my $fh, '>', 'path/to/output_file' or die "unable to open file:$!"; 
while(<DATA>) { 
    chomp; 
    my ($key, $col1, $col2) = split; 
    if ($key eq $p_key) { 
     if ($col1 <= $p_col2+100) { 
      push @result, $_; 
     } else { 
      print_to_file($fh, \@result) if (@result > 3); 
      @result =(); 
     } 
    } else { 
     print_to_file($fh, \@result) if (@result > 3); 
     @result = ($_); 
    } 
    ($p_key, $p_col2) = ($key, $col2); 
} 
print_to_file($fh, \@result) if (@result > 3); 

sub print_to_file { 
    my $fh = shift; 
    my $res = shift; 
    while(@$res) { 
     print $fh, $_, "\n"; 
    } 
} 
__DATA__ 
A 0 100 
A1 0 100 
A1 100 200 
A1 200 300 
A1 400 500 
A1 500 600 
A1 600 700 
A1 700 800 
A1 1600 1700 
A2 100 200 
A2 200 300 
A2 400 500 
A2 500 600 
A2 600 700 
A3 800 900 

出力：

(
    "A1 0 100", 
    "A1 100 200", 
    "A1 200 300", 
    "A1 400 500", 
    "A1 500 600", 
    "A1 600 700", 
    "A1 700 800", 
) 
(
    "A2 100 200", 
    "A2 200 300", 
    "A2 400 500", 
    "A2 500 600", 
    "A2 600 700", 
)