SZ
Что именно тебе нужно?
Size: a a a
2021 January 28
DF
так загружен или нет? как загружен — в массив?
в скаляр, от nginx забрали
DF
Количество строк -- это число \n или что-то большее? ЗЫ в разных ос wc -l по-разному устроен
да, тупо \n посчитать
AP
scalar <$file> ? Или что-то шустрее есть?my $num = `wc -l $file`;гыыгы
SZ
в скаляр, от nginx забрали
=~m/\n/g
SZ
my $num = `wc -l $file`;гыыгы
🤣
SZ
да, тупо \n посчитать
my $lines = () = $file =~ m/\n/g;AP
sub ifkey { $_[1] ? ($_[0], $_[1]) : () }По-моему, так нагляднее, не?
ну да, чёт я задумавшийся был
DF
my $lines = () = $file =~ m/\n/g;А что это за прикол с пустым массивом?
SZ
А что это за прикол с пустым массивом?
Это не массив
SZ
Это лист
SZ
Туда можно переменные написать, если надо присвоить
b
А что это за прикол с пустым массивом?
списочный контекст
DF
типа принудительное приведение к списочному контексту?
SZ
типа принудительное приведение к списочному контексту?
++
AG
my $lines = () = $file =~ m/\n/g;$lines = $file =~ s/\n/\n/g ?
SZ
$lines = $file =~ s/\n/\n/g ?
Это будет менять
SZ
Вообще, когда символ один если ещё более производительное решение, чем то, которое я написал выше
DF
$lines = $file =~ s/\n/\n/g ?
зачем? Это же больно по производительности и бессмысленно с точки зрения логики
AG
надо проверить хз может какая оптимизация под это есть