如何使用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/.*?,//;