VO
на первую тоже нет, если чё.
Size: a a a
2020 March 11
VO
если третью строку убрать -- ошибок вообще не будет
VG
Scalar found where operator expected at ./lib/ssh.pm line 35, near "->print $cmd"
(Missing operator before $cmd?)
вот это кагбе намекает, что реальная ошибка где-то раньше
VO
да вот щаз.
VO
вот тебе полный законченный пример
VO
use strict;
use Net::SSH2;
my $self;
$self = {};
$self->{ssh} = Net::SSH2->new(timeout => 2000);
$self->{ssh}->connect('127.0.0.1') or die "Unable to connect Host $@";
$self->{ssh}->auth_password('x','x') or die "Unable to login $@";
$self->{chan} = $self->{ssh}->channel();
$self->{chan}->pty('dumb', { echo => 0 }, 256, 256);
$self->{chan}->shell();
print $self->{chan} "\n";
VO
String found where operator expected at t.pl line 12, near "} "\n""
(Missing operator before "\n"?)
syntax error at t.pl line 12, near "} "\n""
Execution of t.pl aborted due to compilation errors.
VG
а, это всё-таки принт такой
VG
print { $self->{chan} } $cmd; вот так надоVO
забавно. а почему так?
VG
видимо, какие-то артефакты парсинга былых времён
VG
во всяком случае, это документировано
VO
а где?
VG
как обычно, perldoc -f print
VO
ух. и как я раньше этого не видел?
AK
У IO::Handle'а есть метод print, так что даже странно, что Perl тут не видит indirect method call. Наверное, потому что парсит print вроде по своим микроправилам
AK
Ну и file handle'в в IO::Handle просто так не превращаются, для этого нужна... магия!
AK
Никто не сталкивался с активно форкающимся кодом, где есть инстанс Redis? Это не приводит к проблемам?
2020 March 12
c
Сталкивался
c
Переподключаюсь