in reply to Re: Simple Perl If Else Statement
in thread Simple Perl If Else Statement

Thank you Lennotoecom. I'm very new to Perl and still trying to get a handle on all of it. Instead of literally printing "positive number" or "negative number" how would you make the value reported from column K positive or negative depending on the values in I/B and I/S? Regardless this is a really good start and I can probably figure it out from here. Thanks!

Replies are listed 'Best First'.
Re^3: Simple Perl If Else Statement
by Lennotoecom (Pilgrim) on May 16, 2014 at 13:54 UTC
    Ummmm, like this? 
    while (@a = split /\t|$/, <DATA>){
    next if $a[0] =~ /\D/;
    print "K: $a[0]\n" and next if $a[1] == $a[2];
    print "K: -$a[0]\n" and next if $a[1] == $a[3];
    print "author didn't specify that option\n";
}


__DATA__
K    I    B    S
1    2    2    3
2    4    3    4
3    5    5    2
4    9    1    3

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom