Re: How do I pull n characters off the front of a string?


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: How do I pull n characters off the front of a string?

by perlmonkey (Hermit)

on May 02, 2001 at 11:48 UTC ( #77258=note: print w/replies, xml )

Need Help??

⭐ in reply to How do I pull n characters off the front of a string?

Use substr when possible, it can be many times faster then a simple regex:

my $a = "abcdefghijklmnopqrstuvwxyz";

use Benchmark;
timethese(1000000, {
  's1' => sub { s1($a, 5) },
  's2' => sub { s2($a, 5) },
});

sub s1 {
  my $a = $_[0];
  $a =~ s/^.{$_[1]}//;
  return $a;
}

sub s2 { 
  substr($_[0], $_[1]);
}

Results:
        s1:  8 wallclock secs ( 7.95 usr +  0.09 sys =  8.04 CPU)
        s2:  2 wallclock secs ( 2.54 usr +  0.01 sys =  2.55 CPU)
[download]

Comment on Re: How do I pull n characters off the front of a string? Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://77258]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others having an uproarious good time at the Monastery: (4)

As of 2022-08-12 02:32 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found

Notices^?