arapozojr
4/18/2018 - 9:51 PM

Manual AWK para Perl

a.pl
content_copyfile_download
perl -lane 'if ($F[0] =~ /export/) {$F[3]=$F[1]}; print "@F"' a.txt


@F -> nova linha
$_ -> linha antiga
F[0] -> primeira coluna

$" -> field separator (  perl -lane 'BEGIN{$"="\t"} ...... )
$/ -> record separator
$#F+1 -> número de colunas na linha