perl - 从分隔文件中删除列

Question

我正在尝试将制表符分隔的文件剪切并粘贴在一起，并且一直以这种方式使用 unix 中的剪切和粘贴实用程序:

cut -f 1-66 file1 > file1a
cut -f 68- file1  > file1b
paste file1a file1b

但是我想知道是否有一种方法可以在 Perl/Ruby 中使用 -F 命令来完成此操作，因为从长远来看，这可能会更快。例如

perl -F/\\t/ -ane
for every line in document
  for i (0..66) and (67..Last field in line)
    print $[i]
   end
   print \n
end

Answer 1

Perl 可以这样工作:

perl -F/\\t/ -ane  'print join("\t", @F[0..66,68..$#F])'

@F 包含字符串的一部分，$#F 包含 @F 中最后一个元素的索引