SZ
x = new Array()
Size: a a a
2021 June 12
SZ
Или как там
VG
где он вывернутый-то?
PV
Array array = new Array();
SZ
VG
становится не пох, когда это что-нибудь длиной вроде NtAccessCheckByTypeResultListAndAuditAlarmByHandle()
АК
Когда
print $fd $str – это не print($fd,$str), а $fd->print($str).
VG
вообще-то как раз первое (если бы это был бы тот же Си или Паскаль)
VG
а $fd->print оно просто от того, что это еще и автоматически блесснутый объект
VG
гм, чот я щас на свежем перле там сам не найду про разницу контекстов
PV
А есть ли вариант как-то хитро скоратить место занимаемое вот этим кодом?
my $input_stream;
if ($cli_config->{input} eq '-') {
$input_stream = \*STDIN;
}
else {
open($input_stream, '<', $cli_config->{input}) or die "Cannot open input file $cli_config->{input} - $!";
}
PV
А то получается что конструкция занимает места больше чем сама логика
VG
есть, если парсишь аргументы встроенным ARGV =)
PV
В плюсах например можно скобки опустить, а в перле я чёт хз
VG
мы тут срались примерно об этом
АК
Не надо опускать скобки…
PV
Я слишком ленивый, а Getopt::Args слишком удобный