如何替換全角的空格(已解決!)

actan

現(xiàn)在有兩段中文文本，每行開(kāi)頭均有空格，有的是兩個(gè)全角空格，有的是半角空格，
半角的空格好替換, \s即可，全角的空格我用的是這樣的辦法， 在代碼里定義了個(gè)變量 $qjkg = "用中文輸入法輸入了一個(gè)全角空格"
然后使用         $line =~ s/^$qjkg+//g;
這樣也能替換，
但是奇怪的是我用的是+號(hào)，按理說(shuō)是一次或多次，應(yīng)該把所有的全角空格全替換掉
但是我運(yùn)行完總發(fā)現(xiàn)他只替換一個(gè)全角空格，還留著一個(gè)

為什么呢？

附件是兩段練手的文本，大俠幫忙解決下？

謝謝！


sample.txt.zip (690 Bytes, 下載次數(shù): 48)

2010-02-05 17:03 上傳

點(diǎn)擊文件名下載附件

actan

附件無(wú)法下載？
那我貼內(nèi)容上來(lái)吧，不知道 還能保留原始格式不？

　                                               纖衣素手半懸空，
　　                                             瑟瑟琴音月明中。
　　                                              撫琴弄簫烹茶酒，
　　                                             低言笑飲醉倚松。
　　媽媽我要提醒自己做到的：
　　1、寶貝因?yàn)檎Z(yǔ)言能力遲于動(dòng)作能力，在要求不能滿足的情況下，最直接的反應(yīng)就是發(fā)脾氣，這個(gè)階段的寶寶們會(huì)顯得超有脾氣，這是正常的，不是寶寶的錯(cuò)誤。也不要給寶寶貼標(biāo)簽戴帽子，寶寶雖小，可啥都聽(tīng)在肚子里，她會(huì)不高興的；
　　2、寶寶愛(ài)探索是好事，因?yàn)椴涣私猓�所以要研究，這種精神大人要支持。如果是危險(xiǎn)物品，可以在大人能夠給予的“保護(hù)”下進(jìn)行，實(shí)在不能玩的，也避免用責(zé)罵的方式阻止寶寶，用其他的游戲或玩具轉(zhuǎn)移寶寶的注意力。

蘭花仙子

我猜想與輸入編碼有關(guān)。
最好轉(zhuǎn)成UTF8的。

actan

多謝仙子回復(fù)！

不過(guò)我的源代碼和要替換的文本全是用的utf-8啊

actan

對(duì)了，如果我把那個(gè) $qjkg = "兩個(gè)用中文輸入輸入的空格"

是可以替換行首的兩個(gè)全角空格的
不過(guò)一個(gè)空格的就替換不了了

蘭花仙子

多謝仙子回復(fù)！

不過(guò)我的源代碼和要替換的文本全是用的utf-8啊
actan 發(fā)表于 2010-02-05 17:06

    加上use utf8了嗎？

actan

沒(méi)有用，不過(guò)我試了下，加了use utf8之后全角空格就一個(gè)也替換不了了

蘭花仙子

沒(méi)有用，不過(guò)我試了下，加了use utf8之后全角空格就一個(gè)也替換不了了
actan 發(fā)表于 2010-02-05 17:20

    我真沒(méi)見(jiàn)過(guò)全角空格是啥樣子。。。能貼一個(gè)么？

actan

貼不上來(lái)啊，呵呵，我就是用中文輸入法在代碼里輸入了一下
vim里看到的就是那個(gè)位置光標(biāo)比平時(shí)的光標(biāo)寬了一倍
僅此而已

用方向鍵移動(dòng)光標(biāo)就可以看出來(lái)……
:wink:

yybmsrs

1. while(<DATA>)
   
2. {
   
3.         print $_,"\n";
   
4.         s/\s/,/g;
   
5.         s/　+/;/g;      #全角
   
6.         print $_,"\n";
   
7. }
   
8. 
   
9. __END__
   
10. 我愛(ài)你 哈哈　　哈　哈

復(fù)制代碼

DATA中第一個(gè)是半角空格，后面是2個(gè)全角空格，最后是一個(gè)全角空格。

結(jié)果如下：

我愛(ài)你 哈哈　　哈　哈
我愛(ài)你,哈哈;哈;哈

應(yīng)該沒(méi)什么問(wèn)題