in reply to default value for a scalar

Change:

my ( $FH, $orderKey, $odVal, $osVal ) = @_;

[download]

To:

my ( $FH, $orderKey, $odVal, $osVal ) = map $_ || 0, @_[ 0 .. 3 ];

[download]

Replies are listed 'Best First'.
Re^2: default value for a scalar
by rightfield (Sexton) on Apr 19, 2008 at 22:07 UTC
    Thank you jwkrahn your solution worked as well as the first and I learned a new function. Warm regards
[reply]

In Section Seekers of Perl Wisdom