On Thu, 21 Aug 2008 21:55:46 -0700, Noah wrote:
> Is there a way to simplify the following to one line?
>
> my $value = $t1lsq{$interfaceName};
> $value = 4 if $value > 4;
If you happen to already have
use List::Util qw(max);
in your code (or don't mind adding it) then you can do
my $value = max( 4, $t1lsq{$interfaceName} );
--
Peter Scott
http://www.perlmedic.com/
http://www.perldebugged.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
