Size: a a a

2019 December 04

SZ

Sergey Zhmylove in Modern::Perl
Тебе лучше смотреть iok/pok в зависимости от задачи
источник

AK

Andrey Konovalov in Modern::Perl
Sergey Zhmylove
Содержимое переменной $! -- это число или строка?
Можно спросить у looks_like_number
источник

VG

Vadim Goncharov in Modern::Perl
и он как-то поменяет смысл? :)
источник

IB

Ivan Bessarabov in Modern::Perl
Andrey Konovalov
Можно спросить у looks_like_number
@PerlBanjoBot
use Data::Dumper;
use Scalar::Util qw(dualvar looks_like_number);

my $var = dualvar 10, "Hello";
warn $var + 2 . "\n";

warn Dumper looks_like_number($var);
источник

P

PerlBanjoBot in Modern::Perl
Ivan Bessarabov
@PerlBanjoBot
use Data::Dumper;
use Scalar::Util qw(dualvar looks_like_number);

my $var = dualvar 10, "Hello";
warn $var + 2 . "\n";

warn Dumper looks_like_number($var);
источник

VG

Vadim Goncharov in Modern::Perl
он не проверяет SvIV штоле?)
источник

AK

Andrey Konovalov in Modern::Perl
Ivan Bessarabov
@PerlBanjoBot
use Data::Dumper;
use Scalar::Util qw(dualvar looks_like_number);

my $var = dualvar 10, "Hello";
warn $var + 2 . "\n";

warn Dumper looks_like_number($var);
Я про правильный looks_like, дефолтный не юзаю почти никогда
источник

IB

Ivan Bessarabov in Modern::Perl
Andrey Konovalov
Я про правильный looks_like, дефолтный не юзаю почти никогда
Правильный — это какой?
источник

AK

Andrey Konovalov in Modern::Perl
Всё ради такой фиговины:
sub __db_val {
 my $pv = scalar(@_) == 2 ? \$_[1] : \$_;
 defined( ${$pv} )
   ? (looks_like_number(${$pv}) >> 8)
     ? $_[0]
     : sprintf($_[0], ${$pv})
   : 'NULL'
}
источник

AK

Andrey Konovalov in Modern::Perl
Ivan Bessarabov
Правильный — это какой?
use Scalar::Util::LooksLikeNumber qw(looks_like_number);
источник

AK

Andrey Konovalov in Modern::Perl
В итоге это для того чтобы можно было написать
(...SQL EXPR...) WHERE col {{=macrov}}

Где macrov передаётся внутри хеша подстановок
Есть ещё вариант сделать {{=macrov:int}}, но в принципе легче заранее "привести" значение к числу: $hsh->{macrov} = $s + 0
источник

AP

Anton Petrusevich in Modern::Perl
Cyrill Novgorodcev
но, ладно, ответ я уже получил, спасибо )
SQL::Abstract'ом делать условие
источник

AK

Andrey Konovalov in Modern::Perl
источник

AK

Andrey Konovalov in Modern::Perl
В общем, это просто одна из стадий сборки запроса
источник

AU

Alexey Ugnichev in Modern::Perl
Да, проделки Кернигана и Ритчи.
источник

AK

Andrey Konovalov in Modern::Perl
Vadim Goncharov
соответственно дурацких вопросов про id и прочее не возникало
Так ты же должен был по идее написать универсальный код, которому пришёл бы конфиг от IBM WebSphere - он бы и его распарсил как надо. fb2 - просто пример.
источник

VG

Vadim Goncharov in Modern::Perl
Andrey Konovalov
Так ты же должен был по идее написать универсальный код, которому пришёл бы конфиг от IBM WebSphere - он бы и его распарсил как надо. fb2 - просто пример.
кому должен?
источник

R

Roman in Modern::Perl
уже проценты натикали
источник

AK

Andrey Konovalov in Modern::Perl
Vadim Goncharov
кому должен?
ЕМУ
источник

VG

Vadim Goncharov in Modern::Perl
кому?
источник