AWK 명령 - CSV의 빈 "셀"을 텍스트 값으로 편집합니다.

Question 1

$ perl -MText::CSV=csv -e '
  $csv = Text::CSV->new();
  while(my $row = $csv->getline(ARGV)) {
    $row->[13] = "NA" if ($row->[13] eq "");
    $csv->say(STDOUT, $row);
  };' input.csv

Perl 배열은 1이 아닌 0에서 시작하므로 필드 14는 $rowarrrayref의 요소 13입니다.

employee_number,employee_login,is_active,send_pkg_email,send_na_email,last_name,first_name,department,title,phone_number,employee_type,email,charge_code,area_code,mailstop,roomid
103293,[email protected],Y,,,Smith,Jessica,,,"+1 (650) 3530975",Employee,[email protected],,LOC0028.03,,03.C.01H
103295,[email protected],Y,,,Long,Fred,,,"+1 (415) 9449428",Employee,[email protected],,LOC0025.01,,01.D.04B
103297,[email protected],Y,,,Cheng,Laura,,,"+1 (650) 8623342",Contingent,[email protected],,NA,,
103307,[email protected],Y,,,Brown,Chris,,,"+1 (512) 9644927",Employee,[email protected],,ATX0607.16,,16.B.10D
103310,[email protected],Y,,,Williams,Stan,,,"+1 (650) 8048591",Employee,[email protected],,LOC0061.03,,03.D.01B

Employee_number를 포함하는 행은 103297이제해당 없음14번째 게임에서.

그런데 여기의 출력 필드는 필요한 경우에만 큰따옴표로 묶입니다(예: 공백이 포함된 경우. 또는 쉼표가 포함된 경우에도 따옴표로 묶임). 출력의 모든 필드를 입력 파일에서와 같이 참조하려면 이 $csv = Text::CSV->new();줄을 다음으로 변경합니다.

$csv = Text::CSV->new({always_quote => 1});

텍스트::CSV다른 많은 옵션이 있습니다. 예를 들어 이를 사용하면 $csv = Text::CSV->new({always_quote => 1, strict => 1});입력 행의 필드 수가 다른 경우에도 오류가 발생합니다. man Text::CSV자세히보다.

또는 awk 스크립트에 대한 간단한 수정:

awk -F"," 'BEGIN {OFS=","}; $14 == "\"\"" { $14 = "\"NA\"" };1' input.csv

이는 CSV 파일을 분할하는 데에만 쉼표를 사용할 때 발생하는 문제를 강조합니다. "필드 데이터로 래핑된 문자와 "필드 데이터의 일부인 문자를 구별하는 것은 불가능합니다 . 이 간단한 분할 방법은 그러한 구별을 하지 않기 때문입니다.

필드 14아니요입력 줄을 쉼표로 구분하는 경우에는 비어 있습니다. 두 개의 따옴표 문자( "")가 포함되어 있습니다.

이 awk 한 줄 문은 필드에 쉼표 문자가 포함된 경우에도 중단됩니다. 이것이 CSV 파서를 사용하는 것이 더 나은 또 다른 이유입니다.

바라보다csv 파일을 처리하는 강력한 명령줄 도구가 있습니까?.

좋은 awk csv 파서도 있습니다https://github.com/geoffroy-aubry/awk-csv-parser

Answer

$ perl -MText::CSV=csv -e '
  $csv = Text::CSV->new();
  while(my $row = $csv->getline(ARGV)) {
    $row->[13] = "NA" if ($row->[13] eq "");
    $csv->say(STDOUT, $row);
  };' input.csv