use strict; use warnings; my $JOB = $ARGV[0]; my $threshold = $ARGV[1]; my $fh = "/home/Desktop/merge/$JOB/src/link.txt"; open (INFILE_link,"<$fh") or die $!; my @file_array; while (my $line = ) { chomp $line; my @line_array = split(/\s+/, $line); push (@file_array, \@line_array); } my $arraySize_link = scalar (@file_array); my $ix=1; my ($i, $a, $b, $c, $d, $x, $w, $y, $z, $ta, $tb, $tc, $td); $a= $b= $c= $d= $x= $w= $y= $z= $ta = $tb =$tc =$td= 0; #open (FILE,'>'."$fh"); for ( $i=0; $i<$arraySize_link; $i+=2) { $ta = $file_array[$i][2]; $tb = $file_array[$i][3]; $tc = $file_array[$i+1][2]; $td = $file_array[$i+1][3]; if ($a=$b=$c=$d=$x=$w=$y=$z = 0) { $a = $x = $ta ; $b = $y = $tb ; $c = $w = $tc ; $d = $z = $td ; last; } if ( ($ta-$a) < $threshold && ($tc-$c) < $threshold) { # copy tabcd to abcd $a = $ta ; $b = $tb ; $c = $tc ; $d = $td ; } else { print "$file_array[$i][0] $file_array[$i][2] $file_array[$i+2][3]\n$file_array[$i+1][0] $file_array[$i+1][2] $file_array[$i+3][3]\n"; $a = $x = $ta ; $b = $y = $tb ; $c = $w = $tc ; $d = $z = $td ; } } # end of for loop if ($a=$b=$c=$d=$x=$w=$y=$z != 0) { print "$file_array[$i][0] $file_array[$i][2] $file_array[$i][3]\n$file_array[$i+1][0] $file_array[$i+1][2] $file_array[$i+1][3]\n"; }