修改文件內容

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做呢

謝謝大大

徐超群

#!/usr/bin/perl -w
use strict;
open FILE,"eg.txt" or die"cant open the file";
while (<FILE>) {
    chomp;
    if(/^\w(\d)\_\w(\-?\d).*\s(\S+)/){
    print "$1,$2 $3\n";
}
}
close(FILE); 回复 1# kfcdog0419


   

TrishaTie

$str=~s/^\w(.)_\w(.?\d).*?\s(.*$)/$1,$2 $3/;

kernel69

这样？

1. perl -F'[_XR\s]' -lane 'print $F[1],",",$F[3],," ",$F[$#F]' t
   
2. 3,1 557.91277528272
   
3. 3,-1 631.824162420475
   
4. 3,0 595.525554180431
   
5. $

复制代码

回复 1# kfcdog0419


   

pitonas

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


   

yestreenstars

回复 6# pitonas

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

pitonas

{:2_172:}谢谢师傅!
回复 7# 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:} 谢谢师傅!
but if the doc has one line

1. S3_Y0_AP7101Dd_D1_M5a02a11_loadpull_v1.txt 595.525554180431

复制代码

回复 3# jason680


   

yestreenstars

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

复制代码