在 perl 中使用 awk 和 sed 命令

Question

我有一个简单的 awk 和 sed 命令，我想将其写入 perl 脚本，或者使用 perl 等效命令？如能提供任何建议，我将不胜感激

sed -e '1d;4d' -e 's/#/Time/' -e 's/TGID/PID/' -e 's/%guest/%CPU/' -e 's/RSS/%MEM/'

awk '{ print $1,$3,$7,$13,$NF }'

Answer 1

没有上下文，很难给出确切的答案，但是 Perl 也有命令s///，所以这应该很容易。

要跳过给定的行，您可以添加类似的内容

next if $. == 1 || $. == 4;

要仅打印给定的列，通常将它们保存在数组中，然后只需

print "@F[0,2,6,12] ", scalar @F;