Perl SSH затем прочитать файл на удаленном сервере

Question

мне нужно

1. подключиться к удаленному серверу; затем
2. выполните некоторые действия, например, открыть и прочитать содержимое файла.

На шаге 1:

my $server = "remoteservername.company.com"; 
my $ssh = Net::SSH::Perl->new("$server", debug => 1, protocol => 2, StrictHostKeyChecking => "no") or die "Error connecting server $server"; 

дает Сообщ на клемме

Connection established.

так что я полагаю, я SSH подключен к удаленному серверу, с помощью кода.

Для шага 2 как открыть и прочитать файл на удаленном сервере с помощью кода с локального сервера? это лучшее, что я могу сделать до сих пор:

use strict; 
use warnings; 
use diagnostics; 
use warnings::register; 
use Net::SSH::Perl; 
use Net::SSH::Expect; 
use Math::BigInt lib => "Calc,GMP,Pari"; 

my $server = "server09"; 
my $ssh = Net::SSH::Perl->new("$server", debug => 1, protocol => 2, StrictHostKeyChecking => "no") or die "Error connecting server $server"; 

#open(FILE, "/home/myid/f09.txt") || print("Unable to open test.o\n"); #works, on local, opens file[does not fail]. 

#open(FILE, "server09://home/myid/f09.txt") || print("Unable to open test.o\n"); #---> error: "Unable to open test.o" 

my @remote_text = `this text is put into array.`; 
my $remote_text = join ('',@remote_text); 
open (FILE,'>/home/myid/f09.txt'); 
print FILE "$remote_text"; 
close (FILE); 

exit(0); 

пока он ничего не добавляет к существующему файлу f09.txt; также, если я удалю файл, open не создает его. нет ошибок, но это не похоже на удаленный файл.

просто простое объяснение ssh, тогда чтение из удаленного файла было бы полезно. другие примеры, которые я вижу, не разрезают его. конечно, может быть, я, долгий день, должен немного отойти от него. ваше время очень ценится!

Answer 1

Вы по существу пытаетесь изменить файл, который существует на другой машине через SSH. Функции операций с файлами не могут справиться с этим.

Возможно ли загрузить файл с другого сервера, обновить его локально и повторно загрузить файл?

Вы также можете поэкспериментировать с командой SSH:

my @remote_text = ('this text is put into array.'); 
my $remote_text = join ('',@remote_text); 

my @args = ("ssh server09", "echo '$remote_text' > /home/myid/f09.txt"); 
system(@args) == 0 or die "system @args failed: $?" 

Answer 2

Для проведения интересного подключении по SSH к другой машине, вы можете попробовать IPC::PerlSSH. Из одного из его примеров:

use IPC::PerlSSH; 

my $ips = IPC::PerlSSH->new(Host => "over.there"); 

$ips->use_library("FS", qw(mkdir chmod writefile)); 

$ips->call("mkdir", "/tmp/testing"); 
$ips->call("chmod", 0600, "/tmp/testing"); 

$ips->call("writefile", "/tmp/testing/secret", <<EOF); 
Some secret contents of my file here 
EOF