admin管理员组文章数量:1635975
某个Perl脚本,在其中要运行一个shell指令,然后获取shell的输出结果,方法是用system调用
my @lines = `cmd`;
shell输出结果是多个文件的路径,我遍历这些文件,将它们拷贝到制定目录中去
foreach my $line (@lines){
system `cp $line $dir`;
}
结果运行当中总是提示:perl cp missing destination file operand after
也就是说cp $line $dir中的$dir根本就没有作为cp命令的第二个参数来解析。
表面上看这个脚本语句没有错误,实质上存在漏洞,即$line是从shell输出中提取的,shell输出本身就存在换行符,这些换行符会被脚本解析为命令结束。
所以语句
cp $line $dir被理解为 cp $line 【执行】$dir 【执行】,导致一条命令分为两个命令解析。
解决问题的方法是删除$line里面的换行符。
修改如下:
foreach my $line (@lines){
$line =~ s/[\r\n]//g;
system `cp $line $dir`;
}
版权声明:本文标题:Perl: 运行system `cp $file $dir`错误:perl cp missing destination file operand after 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/dongtai/1729216839a1190524.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论