☰

シェルスクリプトのフィールドから「-」をすべて削除します。

tag-icon • tag-icon shell-script text-processing csv-simple
シェルスクリプトのフィールドから「-」をすべて削除します。

以下は私のcsvファイルで、Retailer_idフィールドから-をすべて削除して新しいcsvを作成したいと思います。

>IPAY_USER_ID,RETAILER_ID,CUST_FIRST_NAME,CUST_LAST_NAME,CUST_MIDDLE_NAME,ACTIVATION_ACTOR_ID,DATE_OF_BIRTH,GENDER,EMAIL_ID,MOBILE_NO,CUSTOMER_CATEGORY,CUST_STATUS,WALLET_TYPE,MOBILE_CIRCLE,MPIN_EXPRY_DATE,R_MOD_ID,R_MOD_TIME,R_CRE_ID,CREATION_DATE,CREATION_TIME,RETAILER_UPGRADE_REG_DATE,RETAILER_UPGRADE_REG_TIME,DEDUP2_DATE,DEDUP2_TIME,DATA_ENRICHMENT_DATE,DATA_ENRICHMENT_TIME,BLACKLIST_DATE,BLACKLIST_TIME,DEDUP3_DATE,DEDUP3_TIME,KYCN_P_Registration_Mode,CHANNEL,TD_PD_STATUS,DEFAULT_MPIN_CHANGED_OR_NOT,UPGRADE_CHANNEL,UPGRADE_STATUS,LAST_TXN_DATE,KYCF_CONVERSION_DATE,KYCF_CONVERSION_TIME,NOMINEE_NAME,RELATION_CODE,BALANCE,SEEDING AUTHORISATION ID
22909943,--,RAL,WAL,,0,08/jan/1997,,[email protected],9923,,ACTIVE,NOKYC,RJ,2025-08-27 21:19:30,22909943,2015-11-05 17:21:17,22909943,2015-08-27,21:19:30,,,,,,,2015-11-05,17:21:17,,,SELF,WEB,,-,,PENDING,2015-08-27 21:19:30,,,,,0,

答え1

awk -F , -v OFS=, '{gsub(/-/, "", $2); print}' < in.csv > out.csv

答え2

sed -i 's/--//g'  in.cvs > out.cvs

答え3

私はsedそれを使用します。

$ sed -r -i 's/^([0-9]+,)--,/\1,/g' file.csv

しかし、私はStéphaneの答えが好きです。RETAILER_IDたとえば、フィールドが10番目のフィールドの場合、正規表現ははるかにsed見苦しくなります。

答え4

おそらくPerlでこれを行います。名前付きフィールドから選択できるからです。

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

#read header row from "STDIN" (or file on command line); 
chomp ( my @header = split /,/, <> );
#print it
print join ",", @header, "\n";
#iterate STDIN or file on command line - line by line
while ( <> ) {
    #declare a row
    my %this_row;
    #strip trailing linefeed (optional, given you need to reinsert it)
    chomp;
    #select fields in this row, into named fields based on the header row. 
    @this_row{@header} = split /,/;
    #apply regex to just RETAILER_ID
    $this_row{'RETAILER_ID'} =~ s/--//;
    #print row. map is unnecessary if you've always got a full set of fields.  
    #I've included it because your sample data didn't. 
    print join ( "," , map { $_ // '' } @this_row{@header} ),"\n";
}

1行より少し長いですが、sed必要に応じて1行にすることもできます。

このスクリプトは、<>次を読むマジックファイルハンドル - を使用するため誰でもSTDINやコマンドラインで指定されたファイルgrepなどsedですが、これがperl -i目標であれば編集を続けることができるという意味です。または、出力をリダイレクトするだけです。

関連情報