Re: Regex only the longes Value , and possible speedup Problem

You could use this:

#!/usr/bin/perl

use strict;
use warnings;

my @numbers = ('012345','0123456');
@numbers    = sort{length $b <=> length $a}@numbers;
my $regex   = join('|',@numbers);

my $string = '0123456778945';

$string =~ s!^($regex)(.*)!$1;$2!;
print $string;
[download]

Comment on Re: Regex only the longes Value , and possible speedup Problem Download Code

Replies are listed 'Best First'.
Re^2: Regex only the longes Value , and possible speedup Problem by ultibuzz (Monk) on Nov 14, 2006 at 10:19 UTC
hi reneeb, i just testet your code a bit changed with a live case and it looks like it's working perfectly, and it was fast kd ultibuzz Update: time for a 500000 file with additional loops for stuff is 2.632 seconds, thats fast ;)	[reply]


Problems? Is your data what you think it is?
	PerlMonks