Как открыть канал и вставить данные в цикл while?

Question

Как открыть канал и вставить данные в цикл while?

Другой вариант - вывести результаты в файл из подоболочки и затем прочитать его в родительской оболочке. что-то вроде

#!/bin/bash
EXPORTFILE=/tmp/exportfile${RANDOM}
cat /tmp/randomFile | while read line
do
    LINE="$LINE $line"
    echo $LINE > $EXPORTFILE
done
LINE=$(cat $EXPORTFILE)

0

perl ssh

задан Sanjay Prasad 19 January 2019 в 12:56

1 ответ

Другие вопросы по тегам:

perl ssh

Похожие вопросы:

score 0 · Answer 1

Цитирование Net :: SSH2 :: Channel

Кроме того, можно также запустить удаленную оболочку (используя оболочку) и смоделировать команды печати взаимодействия пользователя с поток stdin и чтение данных обратно из stdout и stderr. Но такого подхода следует избегать, если это возможно; говорить с оболочкой сложно и, в общем, ненадежно.

Кроме того, использование ls для определения наличия файла / каталога является хрупким и ненадежным. Вместо этого вы должны использовать файловые тестовые операции, например
sub exec_remote($) {
    my($ssh2, $cmd) = @_;

    # every exec() requires a new channel
    my $chan = $ssh2->channel()
        or $ssh2->die_with_error;

    # send command to remote
    $chan->exec($cmd)
        or $ssh2->die_with_error;

    # we're done from our side
    $chan->send_eof;

    # ignore command output
    while (<$chan>) {}

    # wait for remote command to complete and return its exit status
    return $chan->exit_status;
}

sub copy_remote_if_necessary($$) {
     my($ssh2, $source, $destination, $file) = @_;

     if (exec_remote($ssh2, "/usr/bin/test -f ${destination}/${file}") ne 0) {
         die "Copy failed!\n"
             unless (exec_remote($ssh2, "cp ${source}/${file} ${destination}/") ne 0);
     }
}

copy_remote_if_necessary($ssh2, '/data/Directory1', '/data/Directory2', 'ABC.csv');