Why won't the compiler read the else statement?

[merrygreat]

When I was running the above program it gave the result of "if" statement every time. It didn't matter if the "if Statement" was true or false.

#!/usr/bin/perl-w
use Tk;
$mw= MainWindow->new;
$mw-> title ("comparison of sequence");
$seq="ATATATA";
$seq1="ATATCCA";
$label1= $mw ->Label (-textvariable=>\$seq)->pack();
$label2= $mw ->Label (-textvariable=>\$seq1)->pack();
if($seq eq $seq1)
{
$label3=$mw->Label(-text=>"match")->pack();
}
else($seq ne $seq1)
{
$label4=$mw->Label(-text=>"mismatch")->pack();
}
 
$button=$mw->Button(-text=>"exit",-command=>sub{exit})->pack();
 
MainLoop;

.

[RonB]

Your script won't compile due to the syntax error on line 13.

else($seq ne $seq1)

should be:

elsif($seq ne $seq1)

[miller]

Or since you're just doing the opposite of your first if condition, just rely on else itself.

if ($seq eq $seq1) {
    $label3 = $mw->Label(-text=>"match")->pack();
} else {
    $label4 = $mw->Label(-text=>"mismatch")->pack();
}
 

- Miller

[merrygreat]

thanks a lot Miller my program is now executed.