Size: a a a

2021 January 28

W

Warstone in Modern::Perl
А что оно делать будет? ))
источник

SZ

Sergey Zhmylove in Modern::Perl
Warstone
А что оно делать будет? ))
То же, что и обычно, Пинки, умножать :))
источник

SZ

Sergey Zhmylove in Modern::Perl
(*)=1
источник

AP

Anton Petrusevich in Modern::Perl
это какой то нуль в нулевой степени?
источник

SZ

Sergey Zhmylove in Modern::Perl
Anton Petrusevich
это какой то нуль в нулевой степени?
Типа того
источник

SZ

Sergey Zhmylove in Modern::Perl
А (+) = 0
источник

SZ

Sergey Zhmylove in Modern::Perl
Лисп классный, но хаскелл гораздо лучше
источник

b

basiliscos in Modern::Perl
Vyacheslav Olkhovchenkov
не, с одной опцией первый вариант няшнее
Ну тут критерий прост: сколько времени надо чтобы понять, что и как делает код... Если что-то там тернарным оператором вынесено ближе к правому концу экрана... ну такое...
источник

AP

Anton Petrusevich in Modern::Perl
basiliscos
Ну тут критерий прост: сколько времени надо чтобы понять, что и как делает код... Если что-то там тернарным оператором вынесено ближе к правому концу экрана... ну такое...
откуда знать как у него код отформатирован? :)
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
а тут надо заводить еше один массив и заниматься тавтологией с push @optional, {marker => $marker} if defined $marker;
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
гитлер гитер гитлер гитлер
источник

AP

Anton Petrusevich in Modern::Perl
ну мой вариант с хелпером таки интереснее, мне кааца
источник

AP

Anton Petrusevich in Modern::Perl
такие "опционалы" бывают полезны в специфичных местах, когда парсятся какие-то параметры, например
источник

SZ

Sergey Zhmylove in Modern::Perl
Anton Petrusevich
откуда знать как у него код отформатирован? :)
++
источник

SZ

Sergey Zhmylove in Modern::Perl
Anton Petrusevich
можно даже хелпер для этого сделать, если случай частый:
sub ifkey { return () if !$_[1]; return ($_[0]=>$_[1]) }
и звать как
 $s3->({ifkey(marker => $marker)})
sub ifkey { $_[1] ? ($_[0], $_[1]) : () }
По-моему, так нагляднее, не?
источник

DF

Denis F in Modern::Perl
А как быстрее всего посчитать количество строк в файле? Файл загружен в память, размер до нескольких мб
источник

DF

Denis F in Modern::Perl
scalar <$file> ? Или что-то шустрее есть?
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis F
scalar <$file> ? Или что-то шустрее есть?
Загружен в память?
источник

AP

Anton Petrusevich in Modern::Perl
Denis F
А как быстрее всего посчитать количество строк в файле? Файл загружен в память, размер до нескольких мб
так загружен или нет? как загружен — в массив?
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis F
А как быстрее всего посчитать количество строк в файле? Файл загружен в память, размер до нескольких мб
Количество строк -- это число \n или что-то большее? ЗЫ в разных ос wc -l по-разному устроен
источник