Shell Programming and Scripting

Hi,

I have huge file,

head -1 filneame gives,

I just want to remove "##colsep##" from the file, and also want to count the no. of fileds present, as in

Output shld be in newfile as TRADE_KEY,TRADE_DATE
and total no. of fileds separated by these comma's

TRADE_KEY##colsep##TRADE_DATE_TIME##colsep##TRANS_TYPE_CD##colsep##ACCOUNT_KEY##colsep##LOCAL_CURREN CY_AMOUNT##colsep##LOCAL_CURRENCY_CD##colsep##ORIGINAL_CURRENCY_AMOUNT##colsep##ORIGINAL_CURRENCY_CD ##colsep##TRADE_QUANTITY##colsep##SETTLE_DATE_TIME##colsep##ORDER_ENTRY_DATE_TIME##colsep##PRODUCT_K EY##colsep##TRADE_PRICE##colsep##COMMISSION##colsep##IS_CORRECT##colsep##IS_CANCEL##colsep##CORRECTI ON_TYPE##colsep##EXCHANGE_CD##colsep##IS_SOLICITED##colsep##EXECUTING_REPRESENTATIVE_KEY##colsep##AG G_UNIT##colsep##CAPACITY##colsep##ORDER_ID##colsep##ORIGINAL_ORDER_ID##colsep##LOCAL_CURRENCY_NET_AM OUNT##colsep##ORIGINAL_CURRENCY_NET_AMOUNT##colsep##BUSINESS_DATE##colsep##COUNTERPARTY_ACCOUNT_KEY# #colsep##COUNTERPARTY_CATEGORY_CD##colsep##AVERAGE_PRICE_IND##colsep##SOURCE_SYSTEM_CD##colsep##DESK ##colsep##REGION##colsep##ACCRUED_INTEREST##colsep##CURRENCY_EXCHANGE_RATE##colsep##PRODUCT_TYPE_COD E##colsep##SEDOL_CODE##colsep##COUNTERPARTY_ACCOUNT_LABEL##colsep##TRADE_TYPE##colsep##PROP_ACCOUNT# #colsep##DERIVATIVE_TYPE##colsep##PORTFOLIO

Any script shell,awk,perl would do, please help as soon as possible,

man sed

[quote]
by these comma's
[/quota]

Which commas? I don't see any nor do you speak about them before. So maybe just post an example output you would like to have.
Btw, the forum support code tags to display code, logs etc.

Try...

Code:

awk 'BEGIN{FS="##colsep##";OFS=","}{print $1, $2, NF}' file1

Code:

$str='TRADE_KEY##colsep##TRADE_DATE_TIME##colsep##TRANS_TYPE_CD##colsep##ACCOUNT_KEY##colsep##LOCAL_CURREN CY_AMOUNT##colsep##LOCAL_CURRENCY_CD##colsep##ORIGINAL_CURRENCY_AMOUNT##colsep##ORIGINAL_CURRENCY_CD ##colsep##TRADE_QUANTITY##colsep##SETTLE_DATE_TIME##colsep##ORDER_ENTRY_DATE_TIME##colsep##PRODUCT_K EY##colsep##TRADE_PRICE##colsep##COMMISSION##colsep##IS_CORRECT##colsep##IS_CANCEL##colsep##CORRECTI ON_TYPE##colsep##EXCHANGE_CD##colsep##IS_SOLICITED##colsep##EXECUTING_REPRESENTATIVE_KEY##colsep##AG G_UNIT##colsep##CAPACITY##colsep##ORDER_ID##colsep##ORIGINAL_ORDER_ID##colsep##LOCAL_CURRENCY_NET_AM OUNT##colsep##ORIGINAL_CURRENCY_NET_AMOUNT##colsep##BUSINESS_DATE##colsep##COUNTERPARTY_ACCOUNT_KEY# #colsep##COUNTERPARTY_CATEGORY_CD##colsep##AVERAGE_PRICE_IND##colsep##SOURCE_SYSTEM_CD##colsep##DESK ##colsep##REGION##colsep##ACCRUED_INTEREST##colsep##CURRENCY_EXCHANGE_RATE##colsep##PRODUCT_TYPE_COD E##colsep##SEDOL_CODE##colsep##COUNTERPARTY_ACCOUNT_LABEL##colsep##TRADE_TYPE##colsep##PROP_ACCOUNT# #colsep##DERIVATIVE_TYPE##colsep##PORTFOLIO';
$num=($str=~s/##colsep##/,/g);
print "Replaced $num of seprator,","the string after subsituted is:",$str;

awk 'BEGIN{FS="##colsep##";OFS=","}{print $1, $2, NF}' file1

this command works, but giving only 2 columns, NF not working...

there are such 42 cloumns, ......

thanks....and looking fwd

That's what you asked for...