Perlがリモートマシン上のファイルを見つける

Question

私は、log.txtを含むリモートマシン上のすべてのディレクトリをmsystemの下にリストアップする必要があるシナリオを持っています。見つかった場合、msystemディレクトリファイルからll commandを使用してリストを取得します。どのようにこの はこれを達成することができ、ディレクトリ構造

msystem 
    dir1 dir2/info/log.txt dir3/ dir4/info/log.txt 


    my $ssh = Net::SSH::Perl->new($hostname, protocol => '1,2', debug => 0, interactive => 1); 
    $ssh->login($username, $password); 
    ($stdout,$stderr,$exit) = $ssh->cmd("$check_lock_file"); 
    if((defined $stderr) && ($stderr =~ /No such file or directory/)) 
    { 
    ($stdout,$stderr,$exit) = $ssh->cmd("What command to be used and get the ouput"); 
    if((defined $stderr) && ($stderr =~ /No such file or directory/)) 
    { 
        print ""Error; 
        print "$stderr"; 
        exit; 
    } 
    elsif($exit eq '0') 
    { 
      print "dir2 dir4"; 
    } 
    } 

Answer 1

使用は、execを見つけています。単に

：

...$ssh->cmd("find mysystem/ -name "log.txt" -exec ls -la {} \\;"); 



elsif($exit eq '0') 
{ 
     foreach my $line (split(/\n/,$stdout)){ 
      print $line."\n"; 
     } 

} 

Answer 2

あなたはまた、SFTPを使用していることを行うことができます。

use Net::SFTP::Foreign; 
my $sftp = Net::SFTP::Foreign->new($hostname, 
            user => $user, password => $password); 
my @files = $sftp->find('/path/to/mysystem', 
         wanted => qr{^(?:.*/)?log\.txt$}); 
print "$_->{longname}\n" for @files; 

ものの、リモートホストでfindが速くなるだろう実行されています。