perl - 在 Perl 脚本中使用 AWK？

Question

这就是我想要做的：

$variable = `grep -i "Text: Added to directory" '$FOO/result.txt' | awk '{print $6}' | tr -d "'"`
print $variable;

输出：

Text: Added to directory /path/to/directory/
Use of uninitialized value $6 in concatenation (.) or string

我怎样才能只获取“/path/to/directory”而不是“文本：添加到目录/path/to/directory/”？

Answer 1

当然 Perl 可以做 grep、awk 和 tr 可以做的事情。

open my $fh, "<", "$FOO/result.txt" or die "can't open file: $!\n";
while (<$fh>) {
    next unless /pattern/i;
    (my $six = (split)[5]) =~ tr/'//d;
    print $six, "\n";
}
close $fh;

Answer 2

您可能需要调整引号转义，但这应该这样做：

awk IGNORECASE=1 '/yourpattern/{ gsub(/\'/, \'\'); print $6 }' $FOO/result.txt

AWK 用途广泛。