Ha nincs GNU!date

Ha nincs GNU!date, akkor is tákolhatunk valamit Perl-ben. Unalmamban összecsaptam egy programocskát, például ilyesmit lehet vele kiszámolni (mondjuk egy shell-scriptben egy fájlnévhez): az előző hét kezdete és vége intervallumként:

./pldate today downto-wday 1 sub-days 7 printf %Y%m%d- add-days 6 printf %Y%m%d
20190408-20190414

Van egy belső változója, azon hajtja végre a felsorolt műveleteket:

today         -- változó := mai dátum 
downto-wday 1 -- a dátumhoz legközelebbi nem jövőbeli hétfő
sub-days 7    -- vissza hét napot
printf        -- kiírás
add-days 6    -- előre hat napot