Shell Programming and Scripting

$arr1="Our data suggests that epithelial shape and growth control are unequally affected depending on how wt p53 function is impaired and whether partial or full tumor suppressor activity is lost";

$arr2="The growth of epithelial tissue is downregulation";

$array="epithelial,growth,downregulation";
@split=split(",",$array);
foreach $word(@split)
{
    if($arr1=~/\b$word\b/i || $arr2=~/\b$word\b/i)
    {
         print "<br> Matched <br>";
    }

}

The growth of epithelial tissue is downregulation 

Our data suggests that epithelial shape and growth control are unequally affected depending on how wt p53 function is impaired and whether partial or full tumor suppressor activity is lost

$
$ cat -n data.txt
     1  Our data suggests that epithelial shape and growth control are unequally affected depending on how wt p53 function is impaired and whether partial or full tumor suppressor activity is lost
     2  The growth of epithelial tissue is downregulation
     3  The quick brown fox jumps over the lazy dog.
$
$ perl -ne 'BEGIN{@x=split /,/, "epithelial,growth,downregulation"} { chomp;
>   print $_,"\n" if $_ =~ /\b$x[0]\b/ && $_ =~ /\b$x[1]\b/ && $_ =~ /\b$x[2]\b/
> }' data.txt
The growth of epithelial tissue is downregulation
$
$

@arr1=("epithelial","downregulation","growth");

@arr2=("Our data suggests that epithelial shape and growth control are unequally affected depending on how wt p53 function is impaired and whether partial or full tumor suppressor activity is lost","The growth of epithelial tissue is downregulation");

foreach $word(@arr1)
{
     foreach $arr(@arr2)
    {
       if($arr=~/\b$word\b/i)
       {
           print "<br>matched<br>";
       }
   }
}

The growth of epithelial tissue is downregulation

Our data suggests that epithelial shape and growth control are unequally affected depending on how wt p53 function is impaired and whether partial or full tumor suppressor activity is lost

$
$ cat matches.pl
#!perl -w
@arr1=("epithelial","downregulation","growth");
@arr2=("Our data suggests that epithelial shape and growth control are unequally affected",
       "The growth of epithelial tissue is downregulation",
       "The quick brown fox jumps over the lazy dog",
       "The observed downregulation is due to elevated levels of insulin in the blood");
$x = '\\b'.join('\\b|\\b',@arr1).'\\b';
foreach (@arr2) {
  $matches{$_} = () = /$x/g;
}
foreach $i (reverse sort {$matches{$a} <=> $matches{$b}} @arr2) {
  print $i,"\n";
}
$
$ perl matches.pl
The growth of epithelial tissue is downregulation
Our data suggests that epithelial shape and growth control are unequally affected
The observed downregulation is due to elevated levels of insulin in the blood
The quick brown fox jumps over the lazy dog
$
$

my $array="epithelial,growth,downregulation";
my @split=split(",",$array);
my ($reg,$str);
map {$str=sprintf("%s(?=.*%s)",$str,$_)} @split;
$reg=qr/^$str.*$/;
while(<DATA>){
	print if /$reg/;
}
__DATA__
The growth of epithelial tissue is downregulation
The downregulation growth of
The of epithelial tissue growth is downregulation
The downregulation growth of epithelial tissue is