Re: nested "if"

From: Randy W. Sims (ml-perl_at_thepierianspring.org)
Date: 07/03/04

  • Next message: Gunnar Hjalmarsson: "Re: nested "if"" 
    Date: Sat, 03 Jul 2004 04:50:35 -0400

    On 7/3/2004 4:38 AM, Randy W. Sims wrote:
    > Tidied up a little more:

    Actually, I'd probably invert the condition to make it clearer that it's
    accumulating multi-line sequences.

    my( %pro, @names);
    my( $name, $seq, $k );
    while (defined( my $line = <DATA> )) {
         unless ($line =~ /^>(.+)/) {
             chomp( $line );
             $seq .= $line;
         } else {
             if ($seq) {
                 $pro{$name} = $seq;
                 $seq = '';
             }
             ($name = $1) =~ s/\s//g;
             push @names, $name;
             $k++;
         }
    }

  • Next message: Gunnar Hjalmarsson: "Re: nested "if""