替換Perl中的第一個出現除外

我有一個文件，其中所有服務器列爲Dominos_A。替換Perl中的第一個出現除外

是否有可能將Dominos_A的發生更改爲Dominos_B,Dominos_C，第一次比賽除外？

FILEA：

.. 
    .... 
    ..... 
    Server = Dominos_A.check 
    .. 
    . 
    Server = Dominos_A.check 
    Server = Dominos_A.check 
    .. 
    . 
    Server = Dominos_A.check

到

FILEA：

.. 
    .... 
    ..... 
    Server = Dominos_A.check 
    .. 
    . 
    Server = Dominos_B.check 
    Server = Dominos_C.check 
    .. 
    . 
    Server = Dominos_D.check 
    ..

我試圖與substr，我仍無法得到改變。

來源

2013-10-09 zXi

請張貼您當前的代碼（帶'substr'的東西） –

如果你的最後一次出現沒有超越Z信，你可以

perl -i -pe' 
    BEGIN{ @r = "A" .. "Z" } 
    s|Dominos_\K\w| shift @r |e; 
    # for perl 5.8 or older 
    # s|(Dominos_)\w| $1 . shift @r |e; 
' FileA

來源

2013-10-09 07:48:35

Tx一噸。沒有文件停在P. tx再次一堆 – zXi

不錯。但是's /(...).../$ 1 ... /'模式可以通過向後看來避免，例如's/Dominos_ \ K \ w/shift @ r/e'。 – amon

@amon一如既往感謝您的評論 –

@ mpapec..Unfortunately這並不在我用Perl v5.8.4 Solaris系統工作。

所以我寫了一個稍微不同的，適合我的。

> perl -pe 'BEGIN{@r="A".."Z";$i=0}s/(Dominos_)A/$1$r[$i++]/g' temp 
    .. 
    .... 
    ..... 
    Server = Dominos_A.check 
    .. 
    . 
    Server = Dominos_B.check 
    Server = Dominos_C.check 
    .. 
    . 
    Server = Dominos_D.check 
>

來源

2013-10-09 08:40:48 Vijay

替換Perl中的第一個出現除外

回答

相關問題