Perl one liner用于逐行提取正则表达式

Question

我有一个日志文件，其中包含以下条目：

2014-06-10 10:31:53 [Thread-9] TRACE Class - logging message: Object [field1=field1 value, field2=field2 value, field3=field3, field4=[name, value], field5=field5, field6=field6]

我想将其格式化为这样的输出：

field2 value, [name value], field5

Answer 1

我认为字段值和名称不能包含逗号。

perl -ne '/field2=([^,]*).*field4=\[([^,]*).*field5=([^,]*)/ and print "$1, [$2], $3\n"'