怎么替换匹配列

Mylib

abcd;cdef;abc;
fs2;fasd2;131dc;afasdf
abcd;12;4ffdl;

想要达到：

第一列 ; 换成 ,
第二列 ; 换成 '
第三列 ; 换成 ,

如：

abcd,cdef'abc,
fs2,fasd2'131dc,afasdf
abcd,12'4ffdl,

yestreenstars

‘

1. [root@localhost ~]# cat i
   
2. abcd;cdef;abc;
   
3. fs2;fasd2;131dc;afasdf
   
4. abcd;12;4ffdl;
   
5. [root@localhost ~]# sed "s/;/,/;s/;/'/;s/;/,/" i
   
6. abcd,cdef'abc,
   
7. fs2,fasd2'131dc,afasdf
   
8. abcd,12'4ffdl,
   
9. [root@localhost ~]#

复制代码

Mylib

这。。。不错，学到了。。。

yaozhibing41001

回复 1# Mylib

1. awk 'NR==2{gsub(";","'\''",$0);print;next}{gsub(";","'\,'",$0);print}' ddd

复制代码

LikeLx

如果你文档列数少也可以：awk -F ";" '{print $1","$2"`"$3","}'

fh21_xuejinlian

awk '{a=gensub(";","'\''",2);gsub(";",",",a);print a}' file

butterflyswim

1. sed "s/;/,/g;s/;/'/2" file

复制代码

moperyblue

1. sed -e's/;/,/'{3,1} -e"s//'/"

复制代码

moperyblue

1. sed -e's/;/'{",","'",","}'/'

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aLimits = (",", "'");
   
6. while (<DATA>){
   
7.     chomp;
   
8.     my $line = "";
   
9.     my @aList = split /\p{P}/;
   
10.     $line .= $aList[$_] . ($_ % 2 ? $aLimits[$_ % 2] : $aLimits[$_ % 2]) for 0 .. $#aList;
    
11.     substr ($line, length ($line) - 1) = "" if (/\b\z/);
    
12.     print "$line\n";
    
13. }
    
14. 
    
15. __DATA__
    
16. abcd;cdef;abc;
    
17. fs2;fasd2;131dc;afasdf
    
18. abcd;12;4ffdl;

复制代码