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

actan

OK got it~

我这里可以正常替换哦~

$ cat han.pl
use strict;
use utf8;

my $str =  ...
兰花仙子 发表于 2010-02-09 14:41

的确，仙姐的代码我改了下，也是可以的

use strict;
use utf8;

my $str = "　　　　汉　字　中　国";
print $str,"\n";

$str=~s/^\s+//g;
print $str,"\n";
   
不过为什么我从文件读入了就不行呢，我再试试

wind_ch

回复 12# actan


    你該寫成$line =~ s/^(?qjkg)+//;

yybmsrs

有点迷糊了  全角的空格和半角的空格 都是\s

actan

回复  actan


    你該寫成$line =~ s/^(?qjkg)+//;
wind_ch 发表于 2010-02-09 17:56

多谢wind!

完美解决！！
原来是一个优先级的问题啊？

1.         $line =~ s/^($qjkg)+//g;

复制代码

这下好了，行首的1到N个全角空格都可以完全替换掉了！

actan

有点迷糊了  全角的空格和半角的空格 都是\s
yybmsrs 发表于 2010-02-09 19:42

我代码里没有use uft8, 也没有use Encode

不过全角的空格可不是 \s啊

是在代码里输入的一个真正的全角空格

呵呵

starwing83

文件是什么编码？如果文件里面不是utf-8的化自然就有麻烦了= =

dugu072_cu

多谢wind!

完美解决！！
原来是一个优先级的问题啊？这下好了，行首的1到N个全角空格都可以完全替 ...
actan 发表于 2010-02-10 16:28

这不是个优先级问题，这里也看不到什么优先级，这里： ( $xxx )+  的括号，只是一个为量词分组的作用，因为你的全角的空格，对应的unicode编码，实际是多个代码点，经过内插 替换后，加号只是重复了最后一个代码点，而括号括起来后，加号对多个代码点同时作用，自然没有问题了～