Re^3: error calling variables? Going insane...

Since this is a question regarding why your if condition is unexpectedly true, collect some sample cases where it is not behaving as expected.

Since you are doing a simple regex test against a single value, your question likely boils down to "Why does this string get matched by this regex?"

if ($strands{$ID[$i]} =~ m/\+/) { That regex matches any string containing a '+' anywhere in it. In the case where you think it should NOT match but is matching, print out the string $strands{$ID[$i]} (not just $ID[$i] as your comment implies) and see what it contains.

Appended:

I notice at the top you are checking if '-', elsif '+', but at the bottom of your code, you are checking if '+' elsif '-'. If you have a string that contains both a + and a -, that may be causing some confusion.

Comment on Re^3: error calling variables? Going insane... Select or Download Code

Replies are listed 'Best First'.
Re^4: error calling variables? Going insane... by lecb (Acolyte) on Jun 25, 2014 at 22:22 UTC
Thank you for taking the time to have a look; I have only been learning for 2 weeks. My `%strands` is as follows: `$key = some ID $value = + or -` [download] If I print out `$strands{$ID[$i]}`, all it does is print a string of pluses and minuses. I have however figured out the problem: `my @ID; foreach my $line(@col_NM) { if ($line =~ m/(NM\_\d+)/) { push (@ID, $1); } }` [download] If `$line` did not match `/(NM\_\d+)/`, it would not be added to `@ID` . Since, I iterate through `$ID[$i]`, I became out of sync with my positives and minuses. Thank you for pointing me in the right direction and your patience! :) El	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: error calling variables? Going insane...
by lecb (Acolyte) on Jun 25, 2014 at 22:22 UTC

Thank you for taking the time to have a look; I have only been learning for 2 weeks. My %strands is as follows:

$key = some ID
$value = + or -
[download]

$strands{$ID[$i]}

my @ID;
foreach my $line(@col_NM) {
    if ($line =~ m/(NM\_\d+)/) {
    push (@ID, $1);         
    }    
}
[download]

$line

/(NM\_\d+)/

@ID

$ID[$i]

[reply]
[d/l]
[select]