[Moscow.pm] transform sort function to Schwartzian Transform ??

[Ilya Chesnokov]

9 сентября 2011 г. 22:41 пользователь Nikolay Mishin <mi на ya.ru> написал:
> Я бы еще оптимизнул на определении хеша с месяцами
>
> my @month = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
> my %months;
> foreach my $index ( 0 .. $#month ) { $months{ $month[$index] } = $index }

Или, например, так:

my %months;
@months{ qw/ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec / } = (1)x12;

))

-- 
Ilya Chesnokov