VO
что-то торможу. а можно запустить перловый скрипт на stdin с аргументами в командной строке?
Size: a a a
2021 July 03
W
А что мешает7 Аргументы в ARGV, а stdin - while(<>)
VO
мешает то что первый аргумент интепретируется как имя скрипта
VO
и нет, в stdin не данные а сам скрипт
VO
perl arg1 arg2 arg3 < script.pl
W
cat script.pl | perl arg1 arg2
VO
Can't open perl script "arg1": No such file or directory
VO
сюрприз, да?
W
Думать заставляешь ))
VO
если б думать было не надо -- я бы сам справился
VO
так. тупой вопрос. а можно как-то вернуть undef hash?
ну т.е.
ну т.е.
%hash = subroutune();и вот subroutune() возвращает что-то что потом можно проверить как
if %hash
VO
если тупо
return undef;то получаем ругань
Odd number of elements in hash assignment
VO
а, нашел --
return ();
AP
Можно просто
return;, он там внутри wantarray умеет.VO
а он там последнее вычисленное значение не вернет случайно? или это без return вообще происходит?
AT
нет, не вернет
AT
без return выдается последнее вычисленное значение
SZ
Кто ж запретит
VO
как кто? perl
SZ
@PerlBanjoBot
$ echo 'print qq(=$_=\\n) for @ARGV' |perl - xyi pizda jigurda