parksbanyon has asked for the wisdom of the Perl Monks concerning the following question: 

if($TARX eq "exe") { &binary ;} 
   elsif($TARX eq "ini" || "txt") { &text ;}
   else { &file_man ;}

[download]

The first two (exe and txt/ini) find the correct sub's but the else (ie any other file type) is not, its going to the text sub. I tried a multitude of options and rearrangememts prior to posting, but to no avail. I'm stumped.

Replies are listed 'Best First'.
Re: if elsif else not working
by keszler (Priest) on Oct 10, 2013 at 02:54 UTC
     elsif($TARX eq "ini" || $TARX eq "txt") { &text ;}
[reply]
[d/l]

      Thanks! It worked. I swear I tried that and it failed. Sometimes it's just best to step away for awhile.

[reply]
Re: if elsif else not working
by Athanasius (Archbishop) on Oct 10, 2013 at 02:56 UTC
[reply]
[d/l]
[select]
Re: if elsif else not working
by kcott (Archbishop) on Oct 10, 2013 at 03:36 UTC

    G'day parksbanyon,

    Welcome to the monastery.

    "The first two (exe and txt/ini) find the correct sub's but the else (ie any other file type) is not, its going to the text sub. I tried a multitude of options and rearrangememts prior to posting, but to no avail. I'm stumped."

    The string "txt" is TRUE. A zero-length string is FALSE; all other strings are TRUE. [Update: Oops! '0' is also false.] See "perlsyn: Truth and Falsehood".

    The expression ($TARX eq "ini" || "txt") will always be TRUE, which is why the else block is never reached.

    I see two posts showing how to fix this.

    -- Ken

[reply]
[d/l]
[select]
Re: if elsif else not working
by NetWallah (Canon) on Oct 10, 2013 at 05:06 UTC
    Here is how it parses out: 
    ~$ perl -MO=Deparse,-p -e 'if(  $a eq "xx" || "yy"){1}'
if ((($a eq 'xx') or 'yy')) {
    '???';
}
-e syntax OK

    [download]

                 My goal ... to kill off the slow brain cells that are holding me back from synergizing my knowledge of vertically integrated mobile platforms in local cloud-based content management system datafication.

[reply]
[d/l]

Back to Seekers of Perl Wisdom