Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
No such thing as a small change
 
PerlMonks  

Re: Re: remove both leading and trailing spaces

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


in reply to Re: remove both leading and trailing spaces
in thread remove both leading and trailing spaces

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<


Comment on Re: Re: remove both leading and trailing spaces
Download Code
Re: Re: Re: remove both leading and trailing spaces
by softworkz (Monk) on Sep 26, 2003 at 17:02 UTC
    #!/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://294490]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (7)
As of 2014-04-18 09:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (465 votes), past polls