查找并替换多个文本文件的第一列中的标点符号

Question

需要一个类似于这篇文章的解决方案(在多个文件中查找并替换特定的术语)，但在每个分隔的制表符文本文件的第一列中替换标点符号。

的例子:

file1.txt
afile2.txt
3file.txt
...

所有其他文件名以。txt结尾

txt文件的格式在列之间有一个"tab"，看起来像:

aaaa:bbb    second_column    third_column
w:xyz    another_second_column    another_third_column

我需要将第一列中的:替换为另一个字符，例如##。

请帮助。

perl是否将:字符视为列切割器?

Answer 1

用##:

替换行中第一个以制表符分隔的列中的第一个冒号

perl -i.bak -pe's/^([^t:]*):/$1##/' *.txt

处理当前目录下的所有。txt文件，将备份版本保存为。bak-files。

这是一个不需要捕获的变体(由@Brad Gilbert在评论中建议):

perl -i.bak -pe's/^[^t:]*K:/##/' *.txt