如何替换特定列中的字符?

hp_unix

例:
     11111   aaaa   bbbbb   11111000011  2222
     11303   aaaa   bbbbb   11111111111  0000
     11111   aaaa   bbbbb   11111000011  2112
     11111   aaaa   bbbbb   11000001011  2222
     
      要求把第四域中的1都替换成0.

admirer

1. awk '{$4="00000000000";print $0}' filename
   
2. 11111 aaaa bbbbb 00000000000 2222
   
3. 11303 aaaa bbbbb 00000000000 0000
   
4. 11111 aaaa bbbbb 00000000000 2112
   
5. 11111 aaaa bbbbb 00000000000 2222
   

复制代码

   
即使是这样,我在SUN OS 5.8下输出也不行,只输出了一个0,用printf可以了~~嘿嘿,不过我第一感觉也是这么做的~~

hp_unix

[quote]原帖由 "admirer"][/quote 发表：
     
   
       没这么简单啊~
  
      第四域列中的字符不相同呢?
                        长度不相同呢?
      如 1111 aaaa bbbbb 11111000011 2222
          113    aaaa bbbbb 1110789011   0000
         11111 aaaa bbbbb 11112380011 2112
         11111 aaaa bbbbb 115013786    2222

                                     请指教![/code]

grljt

笨鸟来个笨的
#!/bin/ksh
awk '{print $4}' file |sed 's/1/0/g' > file1
paste file file1 |awk '{print $1,$2,$3,$6,$5}'  > file2
mv file2 file
rm file1

powerplane

$> perl -e 'while(<>{chomp; split;@_[3] =~ s/0/1/g; $r=join " ",@_ ;print "$r\n"}' filename

anonimousboy

原帖由 "grljt" 发表：
笨鸟来个笨的
#!/bin/ksh
awk '{print $4}' file |sed 's/1/0/g' > file1
paste file file1 |awk '{print $1,$2,$3,$6,$5}'  > file2
mv file2 file
rm file1

   
借用一下grljt的一句话~~~
awk '{print $4}' urfile |sed 's/1/0/g' >newfile

hp_unix

原帖由 "anonimousboy" 发表：
   
借用一下grljt的一句话~~~
awk '{print $4}' urfile |sed 's/1/0/g' >newfile

   那个截出特定域,替换以后再合并,我本来也是这样做的,
     
   请问,不产生那些中间文件,来实现行吗?

anonimousboy

原帖由 "hp_unix" 发表：


   那个截出特定域,替换以后再合并,我本来也是这样做的,
     
   请问,不产生那些中间文件,来实现行吗?

   
awk和sed只是对文件进行读操作，然后输出到标准输出，如果不用临时文件我也不知道怎么做~~

powerplane

原帖由 "hp_unix" 发表：


   那个截出特定域,替换以后再合并,我本来也是这样做的,
     
   请问,不产生那些中间文件,来实现行吗?

It seems that, if I don't quote __code__ , the script cannot run....?
One line version:

1. perl -e 'while(<>){chomp; split;@_[3] =~ s/0/1/g; $r=join " ",@_ ;print "$r\n"}' FILENAME

复制代码

Multi line version

1. 
   
2. #!/usr/bin/perl
   
3. #c4.pl
   
4. while(<>)
   
5. {
   
6.         chomp;
   
7.         split;
   
8.         @_[3] =~ s/0/1/g;
   
9.         $r=join " ",@_ ;
   
10.         print "$r\n"
    
11. }
    

复制代码

./c4.pl FILENAME

RESULT:
before

1. 
   
2. cat origin
   
3. 1111 aaaa bbbbb 11111000011 2222
   
4. 113 aaaa bbbbb 1110789011 0000
   
5. 11111 aaaa bbbbb 11112380011 2112
   
6. 11111 aaaa bbbbb 115013786 2222
   

复制代码

after

1. 
   
2. perl -e 'while(<>) { chomp; split; @_[3] =~ s/0/1/g; $r=join " ",@_ ; print "$r\n" }' origin
   
3. 1111 aaaa bbbbb 11111111111 2222
   
4. 113 aaaa bbbbb 1111789111 0000
   
5. 11111 aaaa bbbbb 11112381111 2112
   
6. 11111 aaaa bbbbb 115113786 2222
   

复制代码

hp_unix

[quote]原帖由 "powerplane"][/quote 发表：
     


     perl 语言在我的unix机子里还没有.
     
        谢谢powerplane
        谢谢各位大侠~!