Yalnızca virgülle ayrılmış bir dosyada alıntılar arasındaki virgülleri kaldırın.

Virgülle ( ,) ayrılmış bir girdi dosyasına sahibim . Çift tırnak içine alınmış ve içinde virgül bulunan bazı alanlar vardır. İşte örnek satır

123,"ABC, DEV 23",345,534.202,NAME

Çift tırnak içinde ve çift tırnak içinde oluşan tüm virgülleri silmeliyim. Bu yüzden yukarıdaki satır aşağıda gösterildiği gibi ayrıştırılmalıdır.

123,ABC DEV 23,345,534.202,NAME

Aşağıdakileri kullanmayı denedim, sedancak beklenen sonuçları vermedim.

sed -e 's/\(".*\),\(".*\)/\1 \2/g'

İle herhangi bir hızlı hileler sed, awkveya başka herhangi bir unix yarar lütfen?

Tırnaklar dengeli ise, diğer tüm alıntılar arasında virgülleri kaldırmak isteyeceksiniz, bu şöyle ifade edilebilir awk:

awk -F'"' -v OFS='' '{ for (i=2; i<=NF; i+=2) gsub(",", "", $i) } 1' infile

Çıktı:

123,ABC DEV 23,345,534.202,NAME

açıklama

-F"Markaları her alan arası alıntı metin olacağı anlamına gelir çift tırnak işaretinde hattını ayırmak awk. For-loop gsub, global olarak ikame edilenler için kısa, her alanda, virgül ( ",") ' ü hiçbir şey ( "") ile değiştirir . 1Sonunda varsayılan kod bloğunu çağırır: { print $0 }.

Bir Orada iyi yanıtı ile sed sadece bir kez kullanarak, loop :

echo '123,"ABC, DEV 23",345,534,"some more, comma-separated, words",202,NAME'|
  sed ':a;s/^\(\([^"]*,\?\|"[^",]*",\?\)*"[^",]*\),/\1 /;ta'
123,"ABC  DEV 23",345,534,"some more  comma-separated  words",202,NAME

Açıklama:

• :a; kürkçü şubesi için bir etikettir
• s/^\(\([^"]*,\?\|"[^",]*",\?\)*"[^",]*\),/\1 / 3 kapalı parça içerebilir
  • ilk önce 2.: [^"]*,\?\|"[^",]*",\?çift ​​alıntı içermeyen bir dizgenin eşleşmesi, belki de koma veya iki çift alıntı ile çevrelenmiş bir dizgenin komaya girmesi ve belki de bir komanın izlenmesi.
  • ilk RE bölümü daha önce tarif edilen 2. bölümün tekrarı, bunu takiben 1 çifte alıntı ve bazı karamellerden oluşur, fakat çifte alıntı, ne de komalar oluşur.
  • Koma tarafından takip edilecek ilk RE bölümü.
  • Nota, hattın geri kalanına dokunmana gerek yok
• ta:aÖnceki s/komut bazı değişiklikler yaptıysa döngü olacaktır .

Dengeli tırnaklar arasında birkaç virgül işleyebilen genel bir çözüm, iç içe geçmiş bir ikameye ihtiyaç duyar. Belirli bir girişin her satırını işleyen ve diğer tüm tırnak çiftlerinde yalnızca virgül yerine geçen bir çözüm uygularım:

perl -pe 's/ "  (.+?  [^\\])  "               # find all non escaped 
                                              # quoting pairs
                                              # in a non-greedy way

           / ($ret = $1) =~ (s#,##g);         # remove all commas within quotes
             $ret                             # substitute the substitution :)
           /gex'

veya kısaca

perl -pe 's/"(.+?[^\\])"/($ret = $1) =~ (s#,##g); $ret/ge'

İşlemek istediğiniz metni komuta yönlendirebilir veya son komut satırı argümanı olarak işlenecek metin dosyasını belirtebilirsiniz.

CSV ayrıştırıcısına sahip bir dili kullanırdım. Örneğin:

ruby -r csv -ne '
  CSV.parse($_) do |row|
    newrow = CSV::Row.new [], []
    row.each {|field| newrow << field.delete(",")}
    puts newrow.to_csv
  end
' < input_file

İkinci teklifiniz yanlış yerleştirildi:

sed -e 's/\(".*\),\(.*"\)/\1 \2/g'

Ek olarak, düzenli ifadeleri kullanmak metnin mümkün olan en uzun bölümünü eşleştirme eğilimindedir; bu, dizede birden fazla alıntılanmış alan varsa, bunun işe yaramayacağı anlamına gelir.

Birden çok alıntılanmış alanı sed'de işleyen bir yol

sed -e 's/\(\"[^",]\+\),\([^",]*\)/\1 \2/g' -e 's/\"//g'

Bu aynı zamanda bunu çözmenin bir yoludur, ancak, belirtilen alan başına birden fazla virgül içerebilen girdiyle, sed'deki ilk ifadenin tek bir alandaki maksimum virgül içeriği kadar veya tekrarlanana kadar tekrarlanması gerekir. çıkışı hiç değiştirmez.

Birden fazla ifade ile sed'in çalıştırılması, çalışan birkaç sed işlemden ve hepsi açık borularla çalışan bir "tr" den daha verimli olmalıdır.

Bununla birlikte, giriş uygun şekilde biçimlendirilmemişse, bunun istenmeyen sonuçları olabilir. yani, yuvalanmış tırnaklar, sonlandırılmamış tırnaklar.

Çalışan örneği kullanarak:

echo '123,"ABC, DEV 23",345,534,"some more, comma-separated, words",202,NAME' \
| sed -e 's/\(\"[^",]\+\),\([^",]*\)/\1 \2/g' \
-e 's/\(\"[^",]\+\),\([^",]*\)/\1 \2/g' -e 's/\"//g'

Çıktı:

123,ABC  DEV 23,345,534,some more  comma-separated  words,202,NAME

Perl'de - bunu Text::CSVayrıştırmak için kullanabilirsiniz ve önemsizce yapın:

#!/usr/bin/env perl
use strict;
use warnings;

use Text::CSV; 

my $csv = Text::CSV -> new();

while ( my $row = $csv -> getline ( \*STDIN ) ) {
    #remove commas in each field in the row
    $_ =~ s/,//g for @$row;
    #print it - use print and join, rather than csv output because quotes. 
    print join ( ",", @$row ),"\n";
}

İle yazdırabilirsiniz, Text::CSVancak yaparsanız, teklifleri koruma eğilimindedir. (Her ne kadar, önerebilirim - çıktınız için teklifleri çıkarmak yerine Text::CSV, ilk etapta kullanarak ayrıştırmaya başlayabilirsiniz ).

Dizgideki her karakterin içine döngü ekleyen bir fonksiyon yarattım.
Karakter bir alıntı ise, kontrol (b_in_qt) doğru olarak işaretlenir.
B_in_qt true olsa da, tüm virgüller bir boşlukla değiştirilir.
Bir sonraki virgül bulunduğunda b_in_qt false değerine ayarlanır.

FUNCTION f_replace_c (str_in  VARCHAR2) RETURN VARCHAR2 IS
str_out     varchar2(1000)  := null;
str_chr     varchar2(1)     := null;
b_in_qt     boolean         := false;

BEGIN
    FOR x IN 1..length(str_in) LOOP
      str_chr := substr(str_in,x,1);
      IF str_chr = '"' THEN
        if b_in_qt then
            b_in_qt := false;
        else
            b_in_qt := true;
        end if;
      END IF;
      IF b_in_qt THEN
        if str_chr = ',' then
            str_chr := ' ';
        end if;
      END IF;
    str_out := str_out || str_chr;
    END LOOP;
RETURN str_out;
END;

str_in := f_replace_c ("blue","cat,dog,horse","",yellow,"green")

RESULTS
  "blue","cat dog horse","",yellow,"green"