On Tue, 29 Aug 2000 16:41:41 -0600, Tom Christiansen <[EMAIL PROTECTED]> wrote:
> I've actually even used this at run-time, such as:
>
> $value = {
> azure => 0xF0FFFF,
> chartreuse => 0x7FFF00,
> lavender => 0xE6E6FA,
> magenta => 0xFF00FF,
> turquoise => 0x40E0D0,
> }->{ lc $user_color_preference } || 0x000000;
I've once reported a similar code snippet to be wrongly parsed if the first
key was numerical. This was fixed by Larry, but broke something in map {}.
It was something like:
sub err_str ($) # give explanation of error code
{
return {
1 => "Error 1",
2 => "Eroor in error",
:
9 => "Possible error",
}->{$_[0]} || "unknown error $_[0]";
} # err_str
Here you do not much care about efficiency, an error is not soething you
wanna have a lot.
--
H.Merijn Brand Amsterdam Perl Mongers (http://www.amsterdam.pm.org/)
using perl5.005.03, 5.6.0 & 516 on HP-UX 10.20, HP-UX 11.00, AIX 4.2, AIX 4.3,
DEC OSF/1 4.0 and WinNT 4.0 SP-6a, often with Tk800.022 and/or DBD-Unify
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/id/H/HM/HMBRAND/