我应该如何在perl中使用system命令

作者: 1号
发布时间: 2024-04-23 12:04:27 (2月前)
转自：

3 条回复

0#
回复此人
易米烊光 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你为什么要打电话 <code> sed </code> 什么？您可以直接在Perl中更轻松地处理您的要求： </p> <UL> <LI> 加 <code> -i.bak </code> 启用就地替换模式 </LI> <LI> 使用第一个命令行参数作为替换字符串 <UL> <LI> 将其从中删除 <code> @ARGV </code> 数组，所以它不会被解释为文件 </LI> </UL> </LI> <LI> 循环遍历命令行上的所有文件 <UL> <LI> 逐行阅读 </LI> <LI> 申请替代 </LI> <LI> 打印结果 </LI> </UL> </LI> </UL> <P> Perl自动负责打开文件，写入正确的文件并将旧文件重命名为 <code> .bak </code> 。 </p> <pre class="lang-perl prettyprint-override"> <code> #!/usr/bin/perl -i.bak use warnings; use strict; my($replacement) = shift(@ARGV); while (<>) { s/input=.*/input= $replacement/; print; } exit 0; </code> </pre> <P> 测试运行（对输入数据进行有根据的猜测）： </p> <pre class="lang-none prettyprint-override"> <code> $ cat dummy1.txt.bak input= test1 input= test2 $ cat dummy2.txt.bak input= test3 input= test4 $ perl dummy.pl REPLACEMENT dummy1.txt dummy2.txt $ cat dummy1.txt input= REPLACEMENT input= REPLACEMENT $ cat dummy2.txt input= REPLACEMENT input= REPLACEMENT </code> </pre> <P> 或者使用文件“rerun.txt”的内容： </p> <pre class="lang-none prettyprint-override"> <code> $ perl dummy.pl REPLACEMENT $(cat rerun.txt) </code> </pre> </DIV>

编辑
1#
回复此人
是吗@ | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> <code> system() </code> 将字符串列表作为其参数。您需要在传递它的命令周围加上引号。 </p> <pre> <code> system ( "sed -i '/input=.*/c\input= $newinput' $runnew" ); </code> </pre> <P> 但是你的代码看起来仍然很奇怪。你运行完全一样 <code> sed </code> 输入文件中每一行的命令。那是你的意思吗？ </p> <P> 你在这里尝试做什么并不是很清楚。但我相信最好的方法会涉及到的<strong> 不 </强> 运用 <code> sed </code> 并使用Perl进行转换。 </p> </DIV>

编辑

登录后才能参与评论