"Mr. Shawn H. Corey" schreef: > On Thu, 2008-08-21 at 21:55 -0700, Noah wrote:
>> Is there a way to simplify the following to one line?
>> my $value = $t1lsq{$interfaceName};
>> $value = 4 if $value > 4;
>
> Simple in a Rube Goldberg's kind of way ;)
> ( $value ) = sort { $a <=> $b } ( 4, $t1lsq{$interfaceName} );
Far out! (of the box)
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
