perl - 我有 csv 文件我可以知道如何在 linux 中用下划线替换列标题中的空格吗

Question

我的实际输入将是这样的，在列标题中我需要 linux 命令用下划线替换空格

输入：

patient name age number of days
 santhosh    24      20
 saravanan    23     25

预期输出：

 patient_name age number_of_days
   santhosh    24      20
   saravanan   23      25

标签： perlunixawksed

Answer 1

好的，所以假设你的 CSV 是制表符分隔的，我建议你想要的是split.

while ( <> ) {
   print join "\t", map { s/\s+/_/gr } split /\t/; 
}

这将在选项卡上拆分，通过用下划线替换一个或多个空格来转换每个“条目”，并打印结果行。