perl - 远程机器上的 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);