修改文件內容

kfcdog0419

我有一個檔案內容如下
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
    

复制代码

jason680

回复 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
   

复制代码

yestreenstars

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

复制代码

pitonas

{:2_172:} 谢谢师傅!
but if the doc has one line

1. S3_Y0_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 595.525554180431

复制代码

回复 3# jason680


   

jason680

回复 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:}谢谢师傅!
回复 7# jason680

yestreenstars

回复 6# pitonas

我们的代码都是根据楼主提供的数据来写的，如果楼主拿去测试后发现结果不对，说明他提供的数据不够全面，虽然我们可以想得比楼主全面，但是我觉得没有必要这么做。
   

pitonas

{:2_172:}  大神! 这个,你是对的，谢谢
回复 9# yestreenstars