Shell Programming and Scripting

215312581156279  	215312581166279
215312582342558  	215312582357758
215312584725516  	215312584735016
215312589480032  	215312589490032
215312589491032  	215312589501032
215312589592032  	215312589602032
215312589614332  	215312589624332
215312589636632  	215312589646632
215312589658932  	215312589668932
215312589681232  	215312589691232
215312589703532  	215312589713532

awk '/215312581156279/||/215312581156280/||/215312581156281/' File2.txt > File3.txt

#!/usr/bin/perl

my $arr=[];
open FILE1, "file1";
# Get a list of number ranges, store it in an array of arrays
while($line=<FILE1>)
{
        if($line =~ /([0-9]+)[ \t]*([0-9]+)/)
        {
                $arr[++$#arr]=[$1, $2];
        }
}

close FILE1;

# Read in lines from file2
open FILE2, "file2";
while($line=<FILE2>)
{
        $match=0;

# Extract all numbers from $line
        while(($match == 0) && ($line =~ /([0-9]+)/g))
        {
# check each number against the ranges given
                for($n=0; ($n<$#arr)&&($match==0); $n++)
                {
# If it matches, stop hunting and print the line.
                        if(($arr[$n][0] <= $1) &&
                                ($arr[$n][1] >= $1))
                        {
                                print $line;
                                $match=1;
                        }
                }
        }
}

exit 0;

awk 'NR==FNR{a[++i]=$1;b[i]=$2;next}
{ for(j=1;j<=i;j++) {
    if($0>=a[j] && $0<=b[j]) {print;break}
  }
}' file1 file2