如何替换全角的空格(已解决!)

actan

现在有两段中文文本，每行开头均有空格，有的是两个全角空格，有的是半角空格，
半角的空格好替换, \s即可，全角的空格我用的是这样的办法， 在代码里定义了个变量 $qjkg = "用中文输入法输入了一个全角空格"
然后使用         $line =~ s/^$qjkg+//g;
这样也能替换，
但是奇怪的是我用的是+号，按理说是一次或多次，应该把所有的全角空格全替换掉
但是我运行完总发现他只替换一个全角空格，还留着一个

为什么呢？

附件是两段练手的文本，大侠帮忙解决下？

谢谢！


sample.txt.zip (690 Bytes, 下载次数: 48)

2010-02-05 17:03 上传

点击文件名下载附件

actan

附件无法下载？
那我贴内容上来吧，不知道 还能保留原始格式不？

　                                               纤衣素手半悬空，
　　                                             瑟瑟琴音月明中。
　　                                              抚琴弄箫烹茶酒，
　　                                             低言笑饮醉倚松。
　　妈妈我要提醒自己做到的：
　　1、宝贝因为语言能力迟于动作能力，在要求不能满足的情况下，最直接的反应就是发脾气，这个阶段的宝宝们会显得超有脾气，这是正常的，不是宝宝的错误。也不要给宝宝贴标签戴帽子，宝宝虽小，可啥都听在肚子里，她会不高兴的；
　　2、宝宝爱探索是好事，因为不了解，所以要研究，这种精神大人要支持。如果是危险物品，可以在大人能够给予的“保护”下进行，实在不能玩的，也避免用责骂的方式阻止宝宝，用其他的游戏或玩具转移宝宝的注意力。

兰花仙子

我猜想与输入编码有关。
最好转成UTF8的。

actan

多谢仙子回复！

不过我的源代码和要替换的文本全是用的utf-8啊

actan

对了，如果我把那个 $qjkg = "两个用中文输入输入的空格"

是可以替换行首的两个全角空格的
不过一个空格的就替换不了了

兰花仙子

多谢仙子回复！

不过我的源代码和要替换的文本全是用的utf-8啊
actan 发表于 2010-02-05 17:06

    加上use utf8了吗？

actan

没有用，不过我试了下，加了use utf8之后全角空格就一个也替换不了了

兰花仙子

没有用，不过我试了下，加了use utf8之后全角空格就一个也替换不了了
actan 发表于 2010-02-05 17:20

    我真没见过全角空格是啥样子。。。能贴一个么？

actan

贴不上来啊，呵呵，我就是用中文输入法在代码里输入了一下
vim里看到的就是那个位置光标比平时的光标宽了一倍
仅此而已

用方向键移动光标就可以看出来……
:wink:

yybmsrs

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

复制代码

DATA中第一个是半角空格，后面是2个全角空格，最后是一个全角空格。

结果如下：

我爱你 哈哈　　哈　哈
我爱你,哈哈;哈;哈

应该没什么问题