可以用一个替换实现过滤空格么？

zuibird

1^# zuibird 发表于 2008-10-27 17:55

对输入字符串的处理要求：
1. 去掉开头和结尾的空格
2. 中间连续两个或两个以上空格替换成一个空格

$input=~s/(^\s+)|(\s+$)//g;
$input=~s/\s(\s+)/ /g;

请教各位，是否能用一个替换完成上面的操作？

hitsubunnu

2^# hitsubunnu 发表于 2008-10-27 18:00

[Copy to clipboard] [ - ]

CODE:

$input=~s/(^\s+)|(\s+$)|(\s{2,})//g;

ly5066113

3^# ly5066113 发表于 2008-10-27 18:04

QUOTE:

原帖由 hitsubunnu 于 2008-10-27 18:00 发表

$input=~s/(^\s+)|(\s+$)|(\s{2,})//g;

\s{2,}要替换成一个空格。
感觉楼主说的不太可能，因为一个是替换成空，一个要替换成空格。

odacharlee

4^# odacharlee 发表于 2008-10-27 18:18

就算是可以，使用 | 的效率也要比多个 s 要低得多。
所以还是直接使用多个 s 命令来吧，效率高而且可读性好。

ynchnluiti

5^# ynchnluiti 发表于 2008-10-27 18:34

看楼下吧

hitsubunnu

6^# hitsubunnu 发表于 2008-10-27 22:32

修改后如下

[Copy to clipboard] [ - ]

CODE:

$input =~ s/^\s+|\s+$|(\s)\s+/$1/g；

ly5066113

7^# ly5066113 发表于 2008-10-28 10:06

QUOTE:

原帖由 hitsubunnu 于 2008-10-27 22:32 发表
修改后如下

$input =~ s/^\s+|\s+$|(\s)\s+/$1/g；

高！

flw

8^# flw 发表于 2008-10-28 11:26

$input = join ' ', split ' ', $input;

正则表达式好是好，就是可读性差了些。
用函数多好呀。不过 split 的可读性也就那样。语义太杂。

DQP

9^# DQP 发表于 2008-10-28 11:31

$str =~ s/(^\s+)|(\s+$)|((?<=\s)\s+)//g;

改了一下　没有ｗａｒｎｉｎｇ了