我是Perl的新手,并且翻译了一些bash脚本,以便将来自多个远程生产服务器的Apache日志解析为更有用的格式,以便在本地计算机上进行处理.我需要尽可能保持生产服务器整洁.因此,我在本地计算机上有两个单独的.pl文件 – crawler.pl(以前称为crawler.sh),负责从生产服务器获取有用信息,以及reporter.pl(以前称为reporter.sh),负责运行爬网程序并整理从生产服务器检索的信息.
我想要完成的是Perl相当于：
ssh "user@host" 'bash -s' < $crawler
其中$crawler是本地方框中crawler.sh的物理位置.
我希望reporter.pl在生产服务器上打开ssh连接并远程执行crawler.pl.,其效果如下：
use Net::SSH qw(ssh);
ssh($loginString,"perl -e $crawler");
这显然不起作用,但希望你明白我在开什么车.
解决方法
如果您没有将参数传递给脚本,那么它应该如此简单
ssh“user @ host”perl< $履带式 如果你想传递命令行参数,只需使用“ – ”占位符来获得与bash -s相同的效果,即 ssh“user @ host”’perl – arg1 arg2′< $履带式