如何在Perl的系统()中使用bash语法?

前端之家收集整理的这篇文章主要介绍了如何在Perl的系统()中使用bash语法?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
如何在Perl的system()命令中使用bash语法?

我有一个bash特定的命令,例如以下,使用bash的过程替换:

diff <(ls -l) <(ls -al)

我想用Perl来称呼它

system("diff <(ls -l) <(ls -al)")

但它给我一个错误,因为它使用sh而不是bash来执行命令:

sh: -c: line 0: Syntax error near unexpected token `('
sh: -c: line 0: `sort <(ls)'

解决方法

告诉Perl直接调用bash.使用 system()的列表变体来减少引用的复杂性:
my @args = ( "bash","-c","diff <(ls -l) <(ls -al)" );
system(@args);

你甚至可以定义一个子程序,如果你打算这么做的经常:

sub system_bash {
  my @args = ( "bash",shift );
  system(@args);
}

system_bash('echo $SHELL');
system_bash('diff <(ls -l) <(ls -al)');
原文链接:https://www.f2er.com/Perl/172557.html

猜你在找的Perl相关文章