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
