Re^2: duplicates getting omitted while comparing values inside foreach.


Do you know where your variables are?
	PerlMonks

Re^2: duplicates getting omitted while comparing values inside foreach.

by patric (Acolyte)

on Apr 16, 2009 at 09:36 UTC ( [id://757915]=note: print w/replies, xml )

Need Help??

in reply to Re: duplicates getting omitted while comparing values inside foreach.
in thread duplicates getting omitted while comparing values inside foreach.

i had missed an else statement after if.

if(defined($variant)){ 
    foreach my $lis(@snplist){
        if($queryinfo[2] eq $lis){$flag_left=1;}
        elsif($queryinfo[3] eq $lis){$flag_right=1;}
    }

        if(($flag_left == 1) && ($flag_right == 1)){
        print OUT "$_\t$rs\n";
        $c++;
        $flag_left=0;$flag_right=0;
        }
          else{
            print OUT "$_\t-\n";
         }


  }

  else{
    print OUT "$_\t-\n";
  }
[download]

thank u :)