Как получить вход от кота через SSH в Perl

Question

Я пытаюсь перехватить удаленный файл через ssh и обработать его в локальном скрипте построчно.До сих пор я пробовал это

open(INPUT,"| ssh user@host cat /dir1/dir2/file.dat")

, но, очевидно, он только печатает file.dat в STDOUT.

Я знаю, что, вероятно, могу просто скопировать файл и обработать его, но...

Answer 1

Вы отправляете в ssh.Я думаю, что вы хотите переместить канал на другой конец, чтобы вы могли прочитать вывод этой команды cat.

Answer 2

Я бы использовал

$file_contents = `ssh user@host cat /dir1/dir2/file.dat`;
@lines = split(/\n/, $file_contents);
.
.
. # process the file contents

Это захватывает выходные данные команды (то есть содержимое файла).