perl - 在特定的单个字段中保留字符串中的第一个字符

Question

我正在尝试删除 .tab 文件中特定字段的第一个字符以外的所有字符。我只想保留字段 10 和 11 中的第一个字符。

通常字段中有 35 个字符，所以我使用:

awk '{gsub ("..................................$","",$10;print} file

但是，有些字段少于 35，并且被此替换功能忽略。我厌倦了使用子字符串，但我无法弄清楚如何使其特定于字段。我相信有一种方法可以在 awk 中使用 perl，这样我就可以使用该函数

perl -pe 's/(.).*/$1/g'  

但我不确定如何执行此操作以及如何使用该字段作为输入值，因此除了更改的字段外，文件完全相同。

有没有办法用 gsub 做 perl 等价物，或者用 perl 做 awk 等价物？

感谢帮助!

Answer 1

使用 awk 的一种方法:

awk '{ for (i=10;i<=11;i++) { $i = substr( $i, 1, 1) } } { print }' infile