On Thu, 2008-08-21 at 21:55 -0700, Noah wrote:
> Hi there,
>
> 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} );
--
Just my 0.00000002 million dollars worth,
Shawn
"Where there's duct tape, there's hope."
Cross Time Cafe
"Perl is the duct tape of the Internet."
Hassan Schroeder, Sun's first webmaster
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
