powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) месяц в человеческом виде
10 сообщений из 10, страница 1 из 1
(PERL) месяц в человеческом виде
    #33597163
Фотография lissyara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть ли способ задать месяц в человеческом виде (01,02,03... а не 1,2,3...)
?
Или надо изгаляться с проверкой что он из одной цифры и добавлять ноль?


Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
(PERL) месяц в человеческом виде
    #33597185
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lissyara
Есть ли способ задать месяц в человеческом виде (01,02,03... а не 1,2,3...)
?
Или надо изгаляться с проверкой что он из одной цифры и добавлять ноль?


это зависит от того как ты его получить пытаешся...
может sprintf, а может с помощью того модуля которым пользуешся...
...
Рейтинг: 0 / 0
(PERL) месяц в человеческом виде
    #33597187
Фотография Black
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
либо использовать модуль, либо самому дописывать нуль (насколько мне известно)
...
Рейтинг: 0 / 0
(PERL) месяц в человеческом виде
    #33597276
Фотография lissyara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в переменной...
Я так понимаю, что перл слишком умный, и понимая что это число, ноль
откидывает....


Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
(PERL) месяц в человеческом виде
    #33597299
Фотография Black
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lissyara
в переменной...
Я так понимаю, что перл слишком умный, и понимая что это число, ноль
откидывает....


Posted via ActualForum NNTP Server 1.3
Вас спросили, откуда Вы берете дату?
Perl ничего не откидывает ...
...
Рейтинг: 0 / 0
(PERL) месяц в человеческом виде
    #33597339
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lissyara
в переменной...
Я так понимаю, что перл слишком умный, и понимая что это число, ноль
откидывает....


ну и инициализируй переменную как строку а не как число в таком случае...
...
Рейтинг: 0 / 0
(PERL) месяц в человеческом виде
    #33597422
Фотография lissyara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ОК. Вот, некорректный пример:
Код: plaintext
1.
2.
3.
/usr/script/work/>perl -e "print `date '+%m'`;"
 3 /usr/script/work/>perl -e "print '`date '+%m'`';"
 03 /usr/script/work/>
родное форматирование оставлено - результат это число вначале строки
Всё-таки перл считает себя слишком умным....


Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
(PERL) месяц в человеческом виде
    #33597448
Фотография lissyara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пока так написал
Код: plaintext
1.
$month = `date '+%m'`;
$month = substr($month, 0 , 2 );
Хотя в итоге пришёл к выводу, что проще было из MySQL месяц извлечь, чем на
перл написать...


Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
(PERL) месяц в человеческом виде
    #33597464
Фотография Black
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хотя в итоге пришёл к выводу, что проще было из MySQL месяц извлечь, чем на
перл написать...
в чем сложность :)?

Time::Format - Easy-to-use date/time formatting
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
use Time::Format qw(%time %strftime %manip);

 $time{$format}
 $time{$format, $unixtime}

 print "Today is $time{'yyyy/mm/dd'}\n";
 print "Yesterday was $time{'yyyy/mm/dd', time-24*60*60}\n";
 print "The time is $time{'hh:mm:ss'}\n";
 print "Another time is $time{'H:mm am tz', $another_time}\n";
 print "Timestamp: $time{'yyyymmdd.hhmmss.mmm'}\n";
...
Рейтинг: 0 / 0
(PERL) месяц в человеческом виде
    #33597469
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lissyara
ОК. Вот, некорректный пример:
Код: plaintext
1.
2.
3.
/usr/script/work/>perl -e "print `date '+%m'`;"
 3 /usr/script/work/>perl -e "print '`date '+%m'`';"
 03 /usr/script/work/>
родное форматирование оставлено - результат это число вначале строки
Всё-таки перл считает себя слишком умным....


вообще он считает что те кто на нем пишет, изначально читали документацию к нему... :) Строка в перле это набор символов заключенный в двойные или одинарные кавычки. В первом случае ты говориш ему писать _число_ 3 ( потому что нет числа 03 ) а во втором _строку_ '03'.

А вообще это был пример того как не надо писать на перле....

perldoc -f time
perldoc -f localtime
perldoc POSIX ( /strftime )
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) месяц в человеческом виде
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]