获取变量使用内部和/或元组外SED或Perl

Question

输入文件：

{custom:{ver:120,name:hello,form:123},name:world,browser:ie} 
{custom:{ver:130,name:test,form:123},browser:ie} 

sed命令：

sed 's/^.*name:\([^,]*\).*$/\1/' input.txt 

输出：

world 
test 

如何区分元组内的变量和元组外部的变量？

预期输出的name内custom值：

内自定义名称

sed命令

hello 
test 

以外的自定义名称

sed命令：

world 
blank or {custom:{ver:130,name:test,form:123},browser:ie} 

注：name可以随时随地出现文件 - 开始，中间或结束 - 或可以不存在。

perl也会为我工作。 谢谢。

Answer 1

定制内部名称使用，而单纯的正则表达式：

perl -lne 'print /custom:\{[^{}]*name:([^,}]*)/ ? $1 : ""' input.txt 

输出：

hello 
test 

名称自定义外：

perl -lne 'print /custom:\{[^{}]*\}(*SKIP)(*FAIL)|name:([^,}]*)/ ? $1 : ""' input.txt 

输出：

world 

个

开关：

• -l：启用行结束处理
• -n：创建一个while(<>){...}循环在你的输入文件中的每一行“ ”。
• -e：通知perl在命令行上执行代码。

Answer 2

如果将它视为JSON，阅读和维护就简单多了。

use JSON qw(decode_json); 
while (<>) { 
    s/(\w+)/"$1"/g; 
    my $data = decode_json($_); 
    print($data->{name}, "\n") if $data->{name}; 
} 

作为一个班轮：

#Any version 
perl -MJSON -nle' 
    s/(\w+)/"$1"/g; 
    my $data = decode_json($_); 
    print $data->{name} if $data->{name}; 
' 

#5.10+ 
perl -MJSON -nE' 
    s/(\w+)/"$1"/g; 
    my $data = decode_json($_); 
    say $data->{name} if $data->{name}; 
' 

#5.14+ 
perl -MJSON -nE' 
    my $data = decode_json(s/(\w+)/"$1"/gr); 
    say $data->{name} if $data->{name}; 
' 

#5.14+ 
perl -MJSON -nE'say for grep $_, decode_json(s/(\w+)/"$1"/gr)->{name}'