[ic] perl issue

[Christian Brink]

DB

>  This may be better asked in a perl group but I know many perl wizards
>  read this list so thought I'd try. I want to strip all characters from a
>  string that come before the first hyphen, as well as that first hyphen.
>  For example I want

This is tested code:

Example 1:
my $prefix;
if ($string =~ /^([^-]+-)/) {
	$prefix = $1;
}

Method 2:

my $prefix = join('',(split(/(-)/,$string,2))[0..1]);


Method 3: the last one broken down for clarity;

my $string = 'ABC-DEF-G';

my @tmp = split(/(-)/,$string,2);
# @tmp is ('ABC','-','DEF','-','G')

my $prefix = $tmp[0] . $tmp[1];




I did not benchmark this code, but my guess would be Method 2 would be
quickest, the profiler should be able to optimize it the best.

Christian Brink - Fly Rod Maker
http://www.brinkrods.com
cbrink at brinkrods.com
Authorized Gatti Dealer