Perl正則表達式部分替換

Question

我想要替換字符串中數字的所有實例，但前提是該數字是列中空格分隔的第n列。

這是我到目前爲止：

$_ =~ s/\s+([^\s]+\s+){$numcols}$i(.*)\n/$rep/; 

基本上，會有幾個空格，然後會出現：（非空間（列），然後空格）$數numCols倍。然後，會有$ i，其中$ i是我想要替換的數字，後面是一些我不關心的字符和一個換行符。但是，我不想用$ rep替換ALL WITH THAT，但只有$ i。我怎麼做？

Answer 1

事情是這樣的：

$_ =~ s/^(\s+(?:[^\s]+\s+){$numcols})$i/$1$rep/; 

我們在捕捉一切$i爲一組（由?:在它的中間表示的非捕獲組）前。我們正在保留所有這些，僅替換$i，並將剩餘的字符串單獨留下。