主页 / ubuntu / 问题 / 961286
Accepted
SimplySimplified
Asked: 2017-10-03 01:13:52 +0800 CST

在 perl 中使用 awk 和 sed 命令

  • 772

我有一个简单的 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 }'
command-line

1 个回答

  1. Best Answer

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

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

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

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

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

相关问题