请大家帮我忙怎么去写这个程序

jia75111520

我现在有个文件，它是有3列，例如，例，1.pcmd
#cat 1.pcmd
1  2   3
4  5   6
7  8   9
1  5    6
是这样，我想写个perl程序，把第一列是1的全改为0或是2，请告诉我怎么做，还请尽快回复，
还有1.pcmd文件应该什么是什么特别的文件吧

alexru

1. perl -ne 'split; $_[0] =~ s/1/0/; print "@_\n"' 1.pcmd

复制代码

jia75111520

直接在unix下运行就行了吗

weiqiboy

awk '/$1==1/{$1=0;print $0} ^-^

alexru

是的

himate

awk '{if($1==1) $1=2; print }' 1.pcmd