RE: Crop string to x characters

[Gary Hawkins]

> > How do I truncate a string to a particular number of characters?
> >

> You can use the substr() function, or optimize your regex:
>
> #!/usr/bin/perl -w
> use strict;
>
> my $string;
>
> # with substr
> $string = "hello word";
> $string = substr($string,0,4);
> print "substr: $string\n";
>
> # with a regex
> $string = "hello word";
> $string =~ s/^(.{4}).*/$1/;
> print "regex: $string\n";
> __END__
>
>
> --
> briac
>  << dynamic .sig on strike, we apologize for the inconvenience >>

substr 0 wallclock secs ( 0.31 usr +  0.00 sys =  0.31 CPU)
regex  2 wallclock secs ( 1.99 usr +  0.00 sys =  1.99 CPU)

Thanks, substr over 6 times faster, looks like I get to use it for the first
time.

Gary


#!/usr/bin/perl -w

use Benchmark;
$t0 = new Benchmark;

my $string;

# with substr
for (1 .. 100000) {
        $string = "hello word";
        $string = substr($string,0,4);
}

$t1 = new Benchmark;
$td = timediff($t1, $t0);
print timestr($td) . "\n";
$t0 = new Benchmark;

# with a regex
for (1 .. 100000) {
        $string = "hello word";
        $string =~ s/^(.{4}).*/$1/;
}

$t1 = new Benchmark;
$td = timediff($t1, $t0);
print timestr($td) . "\n";

__END__


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]