compare array element

[Rose]

I find the following codes will give match for 'C' to '-', what's the
problem?

$preseq = "C-";
@preseq = splilt '', $preseq;

$curseq = "--";
@curseq = splilt '', $curseq;

$len = @curseq;
$len--;

if ($preseq[$len-1] == $curseq[$len-1]) {
print "P:$preseq[$len-1]\n";
print "C:$curseq[$len-1]\n";
}

 

[Gunnar Hjalmarsson]

I find the following codes will give match for 'C' to '-', what's the
problem?

$preseq = "C-";
@preseq = splilt '', $preseq;

$curseq = "--";
@curseq = splilt '', $curseq;

$len = @curseq;
$len--;

if ($preseq[$len-1] == $curseq[$len-1]) {
print "P:$preseq[$len-1]\n";
print "C:$curseq[$len-1]\n";
}

The problem is that you ask for help with debugging, while you haven't
first asked Perl for help by using strictures and warnings.

Add

use strict;
use warnings;

to the beginning of the script, and make the adjustments needed to get
rid of possible error and warning messages.

 

[Rose]

Thanks to both Bob Walton's explanation and Gunnar Hjalmarsson's critics. I
feel very sorry for raising such stupid questions although I am very
hopeless to be ordered to learn several languages at the same time. I will
pay more attention to use strict and use warnings next time