請大家?guī)臀颐υ趺慈�寫這個程序

jia75111520

我現(xiàn)在有個文件，它是有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