LINUX.ORG.RU
Форум — Development  

perl not if


0

0 

Например чтобы узнать название месяца из цифры месяца, нужно сделать, что-то в духе:
$mon=1;
my @abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
$mon = "$abbr[mon]";

а как получить из названия число или как сделать сопоставление попроще, без условий?
★★

%month = ("January (Январь)"=>0,
                  "February"=>1,
                  "March"=>2,
                  "April"=>3,
                  "Маy"=>4, 
                  "June"=>5, 
                  "July"=>6, 
                  "August"=>7, 
                  "September"=>8, 
                  "October"=>9, 
                  "November"=>10, 
                  "December"=>11); 

print $month{Маy};

vilfred ☆☆
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Development