0

我的代码涉及到主机（使用openSSH），获取与模式匹配的文件列表（使用远程查找命令-OpenSSH），然后打开我得到的每个文件并处理每个文件（grepping等）。我完成了获取文件名并传递给函数。现在，我必须将这些文件名传递给我打开每个文件名并处理它的函数。我正在尝试使用 File::Remote 执行此操作，如下所示：

sub processFiles{
    my $fileList =shift;
#Iterate over the file and try to find start and stop time stamps from the file
for my $file ( @{$fileList}) {
#finding start time of file:its found in lines of file
my $HEAD;
open $HEAD, "host:head -1000 $File|" or die "Unable to check file for starting time";
 while ( <$HEAD> ) {
 #process...

但是我无法在主机上打开文件，并且出现错误。

4

2 回答 2

0

File::Remote 模块不是标准 Perl 安装的一部分。如果你想使用这个模块，那么你需要安装它。

您如何安装它取决于您使用的平台以及您如何安装 Perl。在您使用系统 Perl 的 Linux 安装上，您可以尝试sudo yum install perl-File-Remote（在基于 RedHat 的系统上）或sudo apt-get install libfile-remote-perl（在基于 Debian/Ubuntu 的系统上）。您也可以尝试使用cpan或cpanm来安装它。

我还建议，由于这个模块最后一次更新是在 2005 年，它很可能没有维护，所以我会谨慎使用它。

于 2017-04-13T20:12:18.467 回答
0

在批量执行远程操作时，第一个原则是减少 ssh 连接数（理想情况下只有一个）。使用 shell 或 perl 单行，您可以执行非常复杂的操作。以下是我对您的需求的理解：

ssh hostname 'find dirname -name \*.pl| xargs grep -l pattern /dev/null'

您可以在同一行中通过管道进行进一步处理。如果要在本地处理文件，可以在一个命令中传输所有文件。这是一个完整的例子：

use Archive::Tar;

open my $file, '-|', 'ssh -C hostname "find dirname -name \*.pl | xargs grep -l pattern /dev/null | xargs tar c"'
    or die "Can't pipe: $!";

my $tar = Archive::Tar->new($file);
foreach my $file ($tar->get_files()) {
    print $file->name, ', ', $file->size, "\n";
}
于 2017-04-13T12:51:29.030 回答