web-dev-qa-db-ja.com

二重引用符を削除するsed / awk "は中括弧{}の内側にあります

これに似たデータを含むcsvファイルがあります。

"1b579a5e-9701-40eb-bd36-2bc65169da99","week14_Friday-019","6907eaad-1aff-4d26-9088-ba20374b67c0","2181-019","f20af5bb-c716-42e0-9b9d-cbolf5bfecea","15-BIO-2001","COLLEGE Bio 1","d39330be-df56-4365-8fb4-37e68d040c52","Which engine has the smaller efficiency?","{choices:[a","b","c","d],"type:MultipleChoice}","{solution:[0],"selectAll:false,{"selectMultiple:false",}"type:MultipleChoice}","2016-04-25 00:30:19.000","1922ac5a-6ff6-4ea4-9078-6df4d85d294f","{solution:[0],"type:MultipleChoice}","1","1116911f-8ee5-45c3-b173-a6be681bb15a","FakeLastName","FakeFirstName","[email protected]","Student"

二重引用符 "を削除したいのですが、中括弧{}の内側にある場合に限り、できればsedまたはawkを使用します。必要な出力は次のとおりです。

"1b579a5e-9701-40eb-bd36-2bc65169da99","week14_Friday-019","6907eaad-1aff-4d26-9088-ba20374b67c0","2181-019","f20af5bb-c716-42e0-9b9d-cbolf5bfecea","15-BIO-2001","COLLEGE Bio 1","d39330be-df56-4365-8fb4-37e68d040c52","Which engine has the smaller efficiency?","{choices:[a,b,c,d],type:MultipleChoice}","{solution:[0],selectAll:false,{selectMultiple:false,}type:MultipleChoice}","2016-04-25 00:30:19.000","1922ac5a-6ff6-4ea4-9078-6df4d85d294f","{solution:[0],type:MultipleChoice}","1","1116911f-8ee5-45c3-b173-a6be681bb15a","FakeLastName","FakeFirstName","[email protected]","Student"

どんな助けでも大歓迎です。ありがとう！

awksedcsvdelete
5
Brock Winfrey

sedを使用すると簡単になります：

sed -e :1 -e 's/\({[^}]*\)"\([^}]*}\)/\1\2/g; t1'

またはPerl：

Perl -pe 's{\{.*?\}}{$& =~ s/"//gr}ge'

ネストされた{...}がないことを前提としていることに注意してください。

ネストされた{...}を処理するには、Perlの再帰的な正規表現機能を使用できます。

Perl -pe 's(\{(?:[^{}]++|(?0))*\})($& =~ s/"//gr)ge'

sedを使用して、{...}sを削除する前に、外側に向かって内側の"sをエスケープします。

sed 's/_/_u/g
     :1
     s/\({[^{}]*\){\([^{}]*\)}/\1_<\2_>/g; t1
     :2
     s/\({[^}]*\)"\([^}]*}\)/\1\2/g; t2
     s/_</{/g; s/_>/}/g;s/_u/_/g'
8
Stéphane Chazelas

sedを使用してこれを試してください：

$ sed -r ' :L; s/(\{[^"}]*)"(([^"}]*")*)([^"}]*\})/\1\2\4/g; tL; ' file
1
RudiC

ネストされた中括弧の場合はawk：

    awk -F{ '
            {for (i=2; i<=NF; i++)  {if (1 == n = split ($i, T, "}")) n++ 
                                     for (j=1; j<n; j++)    {RS = index ($i, T[j])
                                                             L = gsub (/"/, _, T[j])
                                                             $i = substr ($i, 1, RS-1)  T[j]   substr ($i, RS + length (T[j]) + L)
                                                            }
                                    }
            }
    1' OFS="{" file

不器用ですが、指定された出力が生成されます。

0
RudiC