SZ
Хехе, да просто мне это прислали в виде sedgolf, но на перле, конечно, красивее
Size: a a a
2021 May 07
AP
ну, для седа ок. на перла слишком легко
AP
ничо так задачки в перл викли челлендж встречались
AP
но я не следил за ним внимательно. просто несколько раз решил...
AB
В codewars perl добавили
АН
ребят, у вас есть контент ?
https://metacpan.org/pod/Kafka
https://metacpan.org/pod/Kafka
АН
AP
2021 May 08
VG
а как увидеть результат без логина?
AK
Синхронный API... Ага. Мимо.
2021 May 10
c
$ perl -MDate -E 'my $rr=Date->new("2021-05-10T17:00:00+03:00") - Date->new(time); say $rr->duration;'
1970
$ perl -MDate -E 'my $rr=Date->new("2021-05-10T17:00:00+04:00") - Date->new(time); say $rr->duration;'
88344
$ perl -MDate -E 'my $rr=Date->new("2021-05-10T17:00:00+05:00") - Date->new(time); say $rr->duration;'
88300
Это я жестко туплю, или модуль? С таймзоной не +3 промахивается на сутки.c
Или другой вариант
$ perl -MDate -E 'my $rr=Date->new("2021-05-10T15:00:00+03:00") - Date->new(time); say $rr->duration;'
-6439
$ perl -MDate -E 'my $rr=Date->new("2021-05-10T15:00:00+04:00") - Date->new(time); say $rr->duration;'
-6448
$ perl -MDate -E 'my $rr=Date->new("2021-05-10T15:00:00+05:00") - Date->new(time); say $rr->duration;'
-6454c
В трёх таймзонах нифига не отличается интервал
c
$ perl -MDate -E 'my $rr=Date->new("2021-05-10T15:00:00+06:00") - Date->new("2021-05-10T15:00:00+03:00"); say $rr->duration;'
0c
казалось бы, ему пофиг на таймзону, но тогда откуда берутся сутки в первом примере ))
c
@PerlBanjoBot
use Date;
my $rr = Date->new("2021-05-10T15:00:00+06:00") - Date->new("2021-05-10T15:00:00+03:00");
say $rr->duration;
use Date;
my $rr = Date->new("2021-05-10T15:00:00+06:00") - Date->new("2021-05-10T15:00:00+03:00");
say $rr->duration;
P
Can't locate Date.pm in @INC (you may need to install the Date module) (@INC contains: /usr/local/lib/perl5/site_perl/5.32.0/x86_64-linux /usr/local/lib/perl5/site_perl/5.32.0 /usr/local/lib/perl5/5.32.0/x86_64-linux /usr/local/lib/perl5/5.32.0) at script.pl line 11.
BEGIN failed--compilation aborted at script.pl line 11.
https://PerlBanjo.com/6648c3df13
BEGIN failed--compilation aborted at script.pl line 11.
https://PerlBanjo.com/6648c3df13