如何去掉字符串前面和后面的空白符

converse

21^# converse 发表于 2008-07-13 20:02

少了一个*

[Copy to clipboard] [ - ]

CODE:

$input = " fhdjfhj ";
$input =~ s/\s+([^\s]*)\s+/$1/;

print $input, "\n";

MMMIX

22^# MMMIX 发表于 2008-07-13 20:36

QUOTE:

原帖由 converse 于 2008-7-13 20:02 发表
少了一个*

$input = " fhdjfhj ";
$input =~ s/\s+([^\s]*)\s+/$1/;

print $input, "\n";

要是输入的中间有空白字符呢？

MMMIX

23^# MMMIX 发表于 2008-07-13 20:38

QUOTE:

原帖由 flw 于 2008-7-13 19:44 发表
这个问题有标准解：
s/^\s+|\s+$//g

如果是多行就应该用 /mg

其实这个问题在 perlfaq4 的 How do I strip blank space from the beginning/end of a string? 中已经说的很清楚了。

akyao

24^# akyao 发表于 2008-07-13 21:06

三楼的哥们是正解，而且相当的简洁明了，受教了

converse

25^# converse 发表于 2008-07-13 21:39

确实,忽略了.

cai120120

26^# cai120120 发表于 2008-07-13 22:53

QUOTE:

原帖由 MMMIX 于 2008-7-13 17:29 发表

唉

没看清题目
如何去掉字符串前面和后面的空白符