在远程机器上的Glob

Question

有没有办法从远程机器获取glob？我在考虑这样的事情：

my @arr = glob('$IP_ADRESS:/usr/local/*');

不幸的是，我找不到任何有用的东西。

Answer 1

我认为您应该尝试使用ssh http://search.cpan.org/~schwigon/Net-SSH-Perl-1.36/lib/Net/SSH/Perl.pm，因为您需要协商远程计算机上的权限，所以它可以在更高级别工作

 use Net::SSH::Perl;
 my $ssh = Net::SSH::Perl->new($host);
 $ssh->login($user, $pass);
 my($stdout, $stderr, $exit) = $ssh->cmd($cmd);

Answer 2

Net :: SFTP :: Foreign提供glob方法。

my $sftp = Net::SFTP::Foreign->new($host);
my @files = $sftp->glob('/usr/local/*', names_only => 1);