文本處理問題

dashorc

cat file1
ASN1.1,None,62373488,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474
62373500
62373504



cat file2

62372069
62372109

我現在想把這兩個文件合并成下面的一個文件：
ASN1.1,None,62373488,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474
ASN1.1,None,62373500,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474
ASN1.1,None,62373504,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474
ASN1.1,None,62372069,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474
ASN1.1,None,62372069,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474

以file1的第一個文件為標準，替換第三域，其他不變

[ 本帖最后由 dashorc 于 2009-7-1 13:05 編輯 ]

blackold

看不明白。

moartel

cat file* |sed '/^\([0-9]\)/s/\([0-9]\)/ASN1.1,None,\1,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474/'

dashorc

謝謝，我怎么就想不到呢，哎

blackold

awk:

1. awk 'NR==1{r=$0;print;next}{sub(/None,[0-9]+/,"None,"$1,r);print r}' file1 file2

復制代碼

ywlscpl

終于給看明白了

1. [root@Mylinux tmp]# awk 'NR==1{v=$0;print v}NR>1{v1=v;sub(/62373488/,$1,v1);prin
   
2. t v1}' file1 file2
   
3. ASN1.1,None,62373488,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474
   
4. ASN1.1,None,62373500,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474
   
5. ASN1.1,None,62373504,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474
   
6. ASN1.1,None,62372069,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474
   
7. ASN1.1,None,62372109,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474
   

復制代碼

dashorc

cat file* |sed '/^\([0-9]\)/s/\([0-9]\)/ASN1.1,None,\1,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474/'

ASN1.1,None,6,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU001234742373500
ASN1.1,None,6,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU001234742373504
ASN1.1,None,6,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU001234742373520
ASN1.1,None,6,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU001234742373524
ASN1.1,None,6,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU001234742373527
ASN1.1,None,6,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU001234742373529

不對

blackold

改一下啊|sed '/^[0-9]\+/s//ASN1.1,None,&,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474/'

dashorc

謝謝黑哥和ywlscpl 指點，又學了不少東西

moartel

原帖由 blackold 于 2009-7-1 13:35 發(fā)表
改一下啊|sed '/^[0-9]\+/s//ASN1.1,None,&,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474/'

黑哥的簡單多了

之前的少了個*
cat file* |sed '/^[0-9]/s/\([0-9]*\)/ASN1.1,None,\1,5,N2603BBOO,20090629 22:25,SZ,TX,DHL,None,AU00123474/'