perl - Perl 的自动分割功能与就地编辑

Question

我刚刚有一项任​​务，我需要用固定值替换制表符分隔文件中的每个第三个值。我想它可以像这样在 Unix shell 上的 Perl 中完成

$perl -a -n -i  -F'/\t/' -e '$F[2]="THE FIXED VALUE";print join "\t", @F' bla.txt

我只是想知道这是否是一种“正确”的方式，或者是否有更好的方式（对于目前缺乏更好的定义）来做到这一点？

Answer 1

我认为你的单行是合理和可读的。还有很多方法可以做到这一点。我会堆叠 perlrun 选项并节省一些击键：

perl -F'\t' -i -ape'$F[2]="THE FIXED VALUE"; $_ = join "\t", @F' bla.txt

$,没有用 的论点填充的耻辱-F，所以仍然有一段重复。