9 сентября 2011 г. 22:41 пользователь Nikolay Mishin <[email protected]> написал:
> Я бы еще оптимизнул на определении хеша с месяцами
>
> 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
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить