在Perl中创建自动卸载脚本

Question

有人可以告诉我一个如何执行以下操作的示例：

如果我使用shell命令生成两个包列表，例如：

rpm -qa | grep -i packages1
and
rpm -qa | grep -i packages2

而不是使用yum“手动”卸载生成列表中显示的每个包，有没有办法将它们放入Perl循环中以自动执行此操作？

Answer 1

如果您需要在Perl中进行命令行处理，我建议IPC::Run。

use IPC::Run qw(run);
my $regex = join '|', map { quotemeta } @packages;
run ['rpm', '-qa'], '|', ['egrep', $regex], '|', ['xargs', 'yum', '-y', 'remove'];