Usando um comando awk e sed dentro do perl

Question

Eu tenho um comando awk e sed simples que eu quero escrever em um script perl ou, alternativamente, usar o equivalente perl? Quaisquer ponteiros seriam apreciados

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

awk '{ print ,,,,$NF }'

    

Answer 1

Sem contexto, é difícil dar respostas exatas, mas o Perl também tem o comando s/// , então isso deve ser fácil.

Para pular determinadas linhas, você pode adicionar algo como

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

Para imprimir apenas as colunas fornecidas, você normalmente as mantém em uma matriz e, em seguida, apenas

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