regx - o; compile pattern once only - sub?

[oldyork90]

Is there any efficiency gained using the modifier /o when used in a
sub?


$x = 'a string';

my $status = mysub($x);


sub x {
  my ($string) = @_;
  if ($string =~ /^somepatternhere/o) {
     return 1;
  }
  return 0;
}




-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/