Ken Foskey wrote:
> Just like to show how NOT to use postfix. I have had a frustrating day
> tackling this type of unreadable code.
>
>> exec_rqst('stga2k_vps.pl',$FileNameIn) if ($a2kqual[4] eq
>>"VPS");
>> exec_rqst('stga2kif.sh',$FileNameIn) if ($a2kqual[4] ne
>>"VPS");
>>
>>
>> if ($a2kqual[4] eq "VPS") {
>> exec_rqst('stga2k_vps.pl',$FileNameIn);
>> }
>> else {
>> exec_rqst('stga2kif.sh',$FileNameIn);
>> }
How about this?
exec_rqst(
$a2kqual[ 4 ] eq 'VPS' ? 'stga2k_vps.pl' : 'stga2kif.sh',
$FileNameIn
);
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
