如何使用perl从输入文件中删除列

Question

如何使用 perl 删除列？有人可以给我看一个基本的例子吗？例如我想删除Date 和日期值：

输入文件：

Date,Col2,Col3,Col4
9/14/2011,AA Host Info,Tier 1,Info
9/14/2011,AR Host Info T1,Tier 1,Info

预期/新文件：

Col2,Col3,Col4
AA Host Info,Tier 1,Info
AR Host Info T1,Tier 1,Info

Answer 1

简单！

#!/usr/bin/perl -p
s/.*?,//;