in reply to match pattern from two different file

This is syntax error 
if # you forgot some parens here, like someone said
        {    $line1=~ /^$pattern/;
                        $line2=~ /^$pattern/;
                         $line1==$line2;
                        {  print $line1;    }
}

[download]
Also 
my $pattern='/^LOC_Os0[1-7]g[0-9]*.[0-9]\s';
...
$line1=~ /^$pattern/;
# $line1 (and 2) will expand to smth like /^^LOC_0s.../, which is prob
+ably not what you want. Try
my $pat = qr/^LOC_0s.../
$line1 =~ $pat;

[download]

Replies are listed 'Best First'.
Re^2: match pattern from two different file
by Anonymous Monk on Jun 20, 2014 at 06:45 UTC
    I mean patterns, not lines, will expand to that. They will start with double ^. That is a regex error.
[reply]

      I remove the if condition and change it pattern according to u .it runs but result is not as it should be. the whole file comes as output

[reply]

In Section Seekers of Perl Wisdom