Dr.Ruud wrote:
> jshock schreef:
>> For example:
>>
>> my %weekdays = (
>> 0 => "SUN",
>> 1 => "MON",
>> 2 => "TUE",
>> 3 => "WED",
>> 4 => "THU",
>> 5 => "FRI",
>> 6 => "SAT",
>> );
>> $weekdays{2}; # gives "TUE"
>>
>> But what if I know "TUE" and want to find out what the key is? Is
>> there a construct like $weekdays{"TUE"} that gives 2"
>
> The data structure that you show, belongs in an array.
>
> perl -le'
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> my @n2d = qw( SUN MON TUE WED THU FRI SAT );
> my %d2n; @d2n{ @n2d } = ( 0 .. $#n2d );
>
> print $d2n{ WED };
> '
> 3
It doesn't help to write UNIX shell commands when we are talking about a
cross-platform language. Please stop.
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
