Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: remove both leading and trailing spaces

by Anonymous Monk
on Sep 26, 2003 at 16:18 UTC ( #294478=note: print w/replies, xml ) Need Help??


in reply to remove both leading and trailing spaces

$val=" Smart Way "; $val=~s/(^\s+|\s+$)//g; print '>'.$val.'<';
  • Comment on Re: remove both leading and trailing spaces

Replies are listed 'Best First'.
Re: Re: remove both leading and trailing spaces
by softworkz (Monk) on Sep 26, 2003 at 16:52 UTC
    I find this way to be pretty fast on windoze, can someone benchmark it?
    #!/usr/bin/perl -w use strict; my $val=" Smart Way "; $val = join (" ",split " ",$val); print '>'.$val.'<'; # shld give me >Smart Way<
      #!/usr/bin/perl -w use strict; use Benchmark; my $val=" Smart Way "; timethese(1000000, { regex1 => sub { my $tmp = $val; $tmp =~ s/^\s*(.*?)\s*$/$1/g; }, regex2 => sub { my $tmp = $val; $val = join (" ",split " ",$val); }, regex3 => sub { my $tmp = $val; $tmp =~ s/^\s+//; $tmp =~ s/\s+$//; } });

      __OUTPUT__
      Benchmark: timing 1000000 iterations of regex1, regex2, regex3...
      regex1: 6 wallclock secs ( 5.25 usr + 0.00 sys = 5.25 CPU) @ 190512.48/s (n=1000000)
      regex2: 2 wallclock secs ( 1.83 usr + 0.00 sys = 1.83 CPU) @ 547045.95/s (n=1000000)
      regex3: 2 wallclock secs ( 1.02 usr + 0.00 sys = 1.02 CPU) @ 984251.97/s (n=1000000)
        One thing you want to watch with regex2...
        regex2 => sub { my $tmp = $val; $val = join (" ",split " ",$val); },
        ... is if the variable has spaces contained in the phrase that you want to keep, this will get rid of them...
        $var = " Smart Way "; $val = join (" ",split " ",$val); print "var: $var\n"; # $var now "Smart Way", internal spaces gone.
        regex1 and regex2 would retain the internal spaces.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://294478]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2018-05-27 09:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?