代码之家 › 专栏 › 技术社区 › PJ.

如何在Perl中捕获pkgrm的输出?

perl

-2

PJ. · 技术社区 · 16 年前

NewPackage . 为此,我使用命令:

pkgrm NewPackage

如果我想在Perl程序中卸载同一个包,我应该如何将STDOUT消息重定向到一个文件,以便在执行结束时可以转到该文件并验证该文件。不久,我尝试了以下命令,但没有成功:

open (FD, "/usr/tmp/result.txt");
$input1 = <FD>;
$input2 = <FD>;
system("pkgrm NewPackage" < $input1);

但不知道如何传递第二个输入。

请告知如何进行。

2 回复 | 直到 16 年前

daotoad 16 年前

一般来说:

使用 strict warnings 布拉格
使用词法句柄打开3个参数
在继续脚本之前测试打开的调用是否成功
$input1, $input2 )改用数组( @inputs
如果要将变量名用作变量,请改用哈希
如果有疑问, RTFM . 因为TFM很大,一开始很难找到东西,所以您可能需要阅读 How To RTFM
The FAQs 也很方便。有 a whole section on system interaction another on file manipulation .
当您需要一个函数来执行一些随机任务时,请查看 functions by category section 在珀尔芬克。

不管怎样,你都需要更明确地定义你想做什么。

是否要运行命令并将其STDOUT转储到文件:

`pkgrm $package > $outfile`;

`pkgrm $package >> $outfile`;

或者,您是否希望捕获结果并查看程序中发生了什么:

open( my $result_fh, '>', $outfile ) or die "can't open logfile - $!\n";
my $output = `pkgrm $package`;
if( $oupt =~ /happiness/) {
   print $result_fh "hooray!\n", $output;
}
else {

   print $result_fh "uh oh\n", $output;
}

还是需要监控标准错误?

在这些情况下 see perlfaq8 .

Community Mohan Dere 9 年前

How do I get the output of an external command in Perl? .

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

1 年前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

1 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

1 年前

nick · 向后交换文件名

1 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

2 年前

con · 如何跳转到foreach迭代的特定点?

2 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

2 年前