Номер недели по текущей дате

#perl #datetime

Чтобы определить номер текущей недели в php  достаточно одной строчки

date("W", time());


Как сделать тоже самое на перле?
Нашел только пару примеров на несколько строк. Неужели нельзя как-то проще.
    

Ответы

Ответ 1

perl -MTime::Piece -E '$t = localtime; say $t->week'
3


Ответ 2

можно воспользоваться функцией strftime() из пакета POSIX. параметры и результат — те же:

$ perl -e 'use POSIX qw(strftime); print strftime "%W", localtime;'
03