Телеграмм чат группы modernperl страница 9075

Global symbol "$qwe" requires explicit package name (did you forget to declare "my $qwe"?) at script.pl line 10.
Execution of script.pl aborted due to compilation errors.
https://PerlBanjo.com/3801c7294e

источник

16:25пожаловаться #6

Warstone in Modern::Perl

@PerlBanjoBot
my $regex = "(?{ \$q = system(\"date\"); print \"\$q\"; \"qwe\"})";
"qwe" =~ /$regex/;

источник

16:25пожаловаться #7

PerlBanjoBot in Modern::Perl

Eval-group not allowed at runtime, use re 'eval' in regex m/(?{ $q = system("date"); print "$q"; "qwe"})/ at script.pl line 10.
https://PerlBanjo.com/82b28c6308

источник

16:25пожаловаться #8

Warstone in Modern::Perl

Во! А так (когда компиляцию отнесли в рантаим) все хорошо.

источник

16:25пожаловаться #9

Ivan Bessarabov in Modern::Perl

Если что — есть отдельный чатик где можно эксперементировать с ботиком https://t.me/PentestingPerlBanjoBot

Pentesting @PerlBanjoBot

Trying to find out weaknesses of @PerlBanjoBot (bot executes Perl code https://perlbanjo.com/documentation#telegram-bot )

источник

16:26пожаловаться #10

Dmitriy Shamatrin in Modern::Perl

Господа, вопрос по теме, после того как обновили перл с дремучей версии до 5.32 и исправили кучу косяков осталось несколько вопросов. Есть

https://perldoc.perl.org/Time::Local#FUNCTIONS

timegm функция и вот она в определенных случаях для zulu времени возвращает число с плавающей точкой вместо целого, это так и должно быть, или таки баг?

источник

16:39пожаловаться #11

Vadim Goncharov in Modern::Perl

а каковы случаи и каково число? мне сразу на ум пришли leap seconds

источник

16:40пожаловаться #12

Vadim Goncharov in Modern::Perl

во всех остальных случаях это баг, наверное

источник

16:40пожаловаться #13

Dmitriy Shamatrin in Modern::Perl

Щас скину, пару минут