Re: elegant REGEX

[Aaron Craig]

my $sLine = "test case total : 32456 allocated : 12000 from tech";
$sLine =~ /(\d+)[^\d]+(\d+)/;
my $lNumber1 = $1;
my $lNumber2 = $2;
print "number 1: $lNumber1 and number 2: $lNumber2";

At 02:34 18.05.2001 +0300, you wrote:
>Hi guys,
>can any one suggest me a REGEX to catch the numbers in the following
>input line:
>test case total : 32456 allocated : 12000 from tech
>
>I want to catch the two numbers and insert them to vars
>thx.

Aaron Craig
Programming
iSoftitler.com