獲取變量使用內部和/或元組外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}'