Is there a Perl-compatible regular expression to t

Question

Is there a way to do this in one line?

$x =~ s/^\s+//;
$x =~ s/\s+$//;

In other words, remove all leading and trailing whitespace from a string.

Answer 1

s/^\s*(\S*\S)\s*$/$1/

Answer 2

$var1 =~ s/(^\s*)(.*?)(\s*$)+/$2/;

Answer 3

Or this: s/\A\s*|\s*\Z//g

Answer 4

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

Answer 5

Funny you should bring this up!

I recently read an article analyzing the performance of twelve (!) different trim implementations.

Although the article specifically uses the JavaScript regex implementation, it uses Perl syntax, so I think it's apropos to this discussion.

Answer 6

I usually do it like this:

($foo) = $foo =~ /^\s*(.*?)\s*$/;

Everything between the leading spaces and the trailing spaces is grouped and returned, so I can assign it to the same old variable.