修改文件內(nèi)容

kfcdog0419

我有一個檔案內(nèi)容如下
R3_X1_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 557.91277528272
R3_X-1_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 631.824162420475
R3_X0_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 595.525554180431

===============================================

我想改成
3,1 557.91277528272
3,-1 631.824162420475
3,0 595.525554180431

突然卡住 該如何用regex做呢

謝謝大大

pitonas

1. #!/usr/bin/perl
   
2. 
   
3. while (<DATA>) {
   
4.     my ( $A, $B, $C ) = /^\D(\d+)_[^\d\-]+([\d\-]+)_.*\s(\S+\n)/;
   
5.     print "$A, $B $C";
   
6. }
   
7. __DATA__
   
8. R3_X1_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 557.91277528272
   
9. R3_X-1_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 631.824162420475
   
10. R3_X0_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 595.525554180431
    

復(fù)制代碼

jason680

回復(fù) 2# pitonas

here is easy way to know what you want and without some bug issue

while (<DATA>) {
  s/^R(\d+)_X([\d\-]+)_\S+\s+(\S+\s*)$/$1,$2 $3/;
  print;
}

mcshell

1. (?i)^[a-z]+(\d+)[^\d]+(\d+)[^\s]+\s+([\d.]+)
   
2. 取
   
3. $1 $2 $3
   

復(fù)制代碼

yestreenstars

1. perl -pe 's/^R(\d+)_X(-?\d+)\S+(.*)/$1,$2$3/'

復(fù)制代碼

pitonas

{:2_172:} 謝謝師傅!
but if the doc has one line

1. S3_Y0_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 595.525554180431

復(fù)制代碼

回復(fù) 3# jason680


   

jason680

回復(fù) 6# pitonas

there is one important things for us:
always to use if conditional to check match command before using $1,$2,...

if(m/..../){
    # command with $1, $2, $3
}


input data:
R3_X1_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 557.91277528272
xxxxxxx
S3_Y0_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 595.525554180431


1. using  s/../../ will keep the unmatched data
while (<DATA>) {
  s/^R(\d+)_X([\d\-]+)_\S+\s+(\S+\s*)$/$1,$2 $3/;
  print;
}
output data:
3,1 557.91277528272
xxxxxxx
S3_Y0_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 595.525554180431

2. using m/.../ without if conditional will get some issue
while (<DATA>) {
    my ( $A, $B, $C ) = /^\D(\d+)_[^\d\-]+([\d\-]+)_.*\s(\S+\n)/;
    print "$A, $B $C";
}
output data:
3, 1 557.91277528272
,  3, 0 595.525554180431

Note: the requester didn't say how to do unmatched data ...   
BTW, you can use if(s/../../){ print ...} to drop unmatched data

pitonas

{:2_172:}謝謝師傅!
回復(fù) 7# jason680

yestreenstars

回復(fù) 6# pitonas

我們的代碼都是根據(jù)樓主提供的數(shù)據(jù)來寫的，如果樓主拿去測試后發(fā)現(xiàn)結(jié)果不對，說明他提供的數(shù)據(jù)不夠全面，雖然我們可以想得比樓主全面，但是我覺得沒有必要這么做。
   

pitonas

{:2_172:}  大神! 這個,你是對的，謝謝
回復(fù) 9# yestreenstars