ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     31 May 2001  12:23:00
 To : Yuriy Kaminskiy
 Subject : Re: месяц -> int
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Yuriy Kaminskiy.
 
 В твоём письме от Tue, 29 May 2001 02:20:35 +0400 написано:
 
 YK>  Hello,  Stepan! 
 >>>>>> On 15:28 25/5/2001, Stepan M. Pechkin <2:5100/109.111> writes:
 SMP>> Существует ли какая-нибудь стандартная функция, которая может из "Jan"
 SMP>> сделать 0, а из "Aug" - 7?
 YK> #!/usr/bin/perl -l
 YK> # Вариант раз, учитывающий локализацию:
 
 # Если уж учитывающий локализацию, то
 use locale;
 
 YK> use POSIX qw(strftime);
 YK> for (0..11) {
 YK>     $long_month_num{strftime("%B", 0, 0, 0, 1, $_, 96)} = $_;
 YK>     $short_month_num{strftime("%b", 0, 0, 0, 1, $_, 96)} = $_;
 YK> }
 
 -- 
 Artem Chuprina                            E-mail: ran@ran.pp.ru
 Programmer                                  FIDO: 2:5020/371.32
 Memonet Ltd.                             Phone: +7-095-284-1356
 --- ifmail v.2.15dev5
  * Origin: NTV Internet (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор