Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Re: Re: remove both leading and trailing spaces

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


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

#!/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)


Comment on Re: Re: Re: remove both leading and trailing spaces
Download Code
Re: Re: Re: Re: remove both leading and trailing spaces
by the_0ne (Pilgrim) on Sep 26, 2003 at 20:46 UTC
    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://294496]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (11)
As of 2014-10-02 07:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (49 votes), past polls