如何删除awk中的某一类型字符

Question

我有一个文件，A.csv (sep="，")：

Date And Time of Export,Batch ID,Sample Name,Well,Sample Type,Status,Interpretive Result,Action*
07/15/20  19:10:03,TAQPATH-AB275013338-MOL_0003,2060565907,E11,Patient,VALID,SARS-CoV-2 Not Detected,REPORT
07/15/20  19:10:03,TAQPATH-AB275013338-MOL_0003,2060565919,A10,Patient,VALID,SARS-CoV-2 Not Detected,REPORT
07/15/20  19:10:03,TAQPATH-AB275013338-MOL_0003,2060565931,E01,Patient,VALID,SARS-CoV-2 Not Detected,REPORT

我想删除第4列的"0“，但只删除数字，也就是说，如果数据是"B01”，我想要"B1“，但是如果数据是"B10”，我希望它保持"B10“。所以在我的例子中，应该是：

Date And Time of Export,Batch ID,Sample Name,Well,Sample Type,Status,Interpretive Result,Action*
07/15/20  19:10:03,TAQPATH-AB275013338-MOL_0003,2060565907,E11,Patient,VALID,SARS-CoV-2 Not Detected,REPORT
07/15/20  19:10:03,TAQPATH-AB275013338-MOL_0003,2060565919,A10,Patient,VALID,SARS-CoV-2 Not Detected,REPORT
07/15/20  19:10:03,TAQPATH-AB275013338-MOL_0003,2060565931,E1,Patient,VALID,SARS-CoV-2 Not Detected,REPORT

我已经做了：

awk -F ","  'BEGIN{OFS=",";} {sub("0", "", $4); print}' A.csv > B.csv

但它删除了所有的"0"，有人能有一个想法吗？

谢谢

Answer 1

一种方法是备份第一个字符，并使用0替换包含前导sub()的部分。

awk -F "," 'BEGIN{ OFS="," } $4 ~ /^[[:alpha:]]/ { lead = substr($4, 1, 1); sub ("^[[:alpha:]]0*", lead, $4) }1' file

初始条件$4 ~ /^[[:alpha:]]/只标记$4以字母表开头的行。我们只使用substr()函数在这些行上提取第一个数字，然后使用从开始和所有前导零替换sub()替换，然后仅用第一个字符替换该模式。

另一种方法是通过执行+0将第一个字母之后的部分强制转换为数字部分，这将去掉前导零。

awk -F "," 'BEGIN{ OFS="," } $4 ~ /^[[:alpha:]]/ && NR > 1 { $4 = substr($4, 1, 1) "" substr($4, 2)+0 }1' file