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

[reneeb]

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;

[ultibuzz]

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 ;)