Question

perl 提取文件中的第一列，第二列，第四列

源文件a.txt（以 ，；分隔）：
a,b,c,d;
a,b,c,d;
a,b,c,d;
a,b,c,d;
处理后b.txt(以TAB键 \n分隔)：
a b d
a b d
a b d
a b d

Answer 1

用：
awk -F"," '{print $1"\t"$2"\t" $4}' 文件名
多方便

Answer 2

open A, "a.txt" or die "Can't open A";
open B, ">b.txt" or die "Can't open B";

while ( <A> ) {
chomp; chop;
print B join ("\t", ((split /,/, $_ )[1,2,4])) . $/;
}
close B; close A;