in reply to Re^2: user net:openSSH and File::find::Rule together.
in thread user net:openSSH and File::find::Rule together.

Oops, the options to capture have to be passed as a hash reference. I have corrected the code above.

Replies are listed 'Best First'.
Re^4: user net:openSSH and File::find::Rule together.
by garcimo (Novice) on Feb 15, 2018 at 18:34 UTC

    could the contents of the data feed by stdin_data we put in a subroutine instead..

    I tried to put it in a subroutine like this: 
    sub finder {

use File::Find::Rule;


my $today = time();
my $onehour = $today - (60*60);

my @files = File::Find::Rule->file()
                            ->name("*.0")
                            ->mtime("<$onehour")
                            ->in( "/export/home/adm_garcimo" );

for my $file (@files) {
    return $file;
}
}

    [download]
    then call the subroutine: 
    my $output = $ssh->capture({stdin_data => <<'EOS'}, '/usr/bin/perl');
finder()
EOS

print $output

    [download]
    but it does not find the subroutine..

    thanks again.

[reply]
[d/l]
[select]
      No, what you send in stdin_data must be a complete script.

      As I already told you, for more complex things you can use Object::Remote.

[reply]
[d/l]

In Section Seekers of Perl Wisdom