perl高手給解答一下

acer1025

遇到一段字符串    遇到x時(shí)要把x與他前面的一個(gè)字符一起去掉 例如： abcdxef  處理完后要得到 abcef， abcdxxef處理完后是abef。。應(yīng)該怎么做啊，能給點(diǎn)指點(diǎn)么？？

flw

別 x 了，你要的不就是退格鍵的處理麼。

1 while s/.x//g;

acer1025

回復(fù) 2# flw


    呵呵 如果想在linux命令行上處理 怎么弄��？

x9x9

想寫(xiě)個(gè)一句的一下寫(xiě)不出來(lái)，這個(gè)給LZ可能看著更直觀：

open O,">my.txt";

while(<>){
s/.x//g until not /x/;
print O $_;
}

flw

想寫(xiě)個(gè)一句的一下寫(xiě)不出來(lái)，這個(gè)給LZ可能看著更直觀：

open O,">my.txt";

while(){
s/.x//g until n ...
x9x9 發(fā)表于 2010-05-26 15:25

open O, '>my.txt' 是很土的做法。

標(biāo)準(zhǔn)做法是直接 print 到 STDOUT。

until 那一句用我二樓那個(gè)就可以了。

flw

回復(fù)  flw


    呵呵 如果想在linux命令行上處理 怎么弄啊？
acer1025 發(fā)表于 2010-05-26 15:12

perl -pne '1 while s/.x//g' /path/to/your/file

acer1025

回復(fù) 7# flw


    版主果然厲害，，，不過(guò)我試了一下，你給的程序還是有問(wèn)題。。。

liyangole

學(xué)習(xí)中

flw

回復(fù)  flw

    版主果然厲害，，，不過(guò)我試了一下，你給的程序還是有問(wèn)題。。。
acer1025 發(fā)表于 2010-05-26 16:21

有問(wèn)題就對(duì)了。