pattern matching problem

[jj0914]

i am trying to do a pattern match in one of my perl script, but I couldn't figure out what expression i can use, here is the line i wanna match:

ds[traffic_out].value = 8.4164256667e+04

can anyone give me a help on this?

thanks

 

[max1x]

ds[traffic_out].value = 8.4164256667e+04

/^\w*\d$/g with assumptions that:
Always starts with aplhabets and ends with number.
Is not case sensitive.
This is a greedy match so it will match the longest pattern.

 

[max1x]

ds[traffic_out].value = 8.4164256667e+04

/^\w*\d$/g with assumptions that:
Always starts with alphabets and ends with number.
Is not case sensitive.
This is a greedy match so it will match the longest pattern.

 

[KevinADC]

you did not say what you are trying to match so there is little point in posting code. Please explain exactly what you are trying to match in the line you posted.

 

[jj0914]

i am running "rrdtool info" in my script, and i am trying to match one line from the result which I posted "ds[traffic_out].value = 8.4164256667e+04".

sorry about not clear, bad at express what I need : )

 

[jj0914]

here is how I match:

"if($_ =~ /\[$ds\]\.value = ^(.*\d+))"

but I can't match the exponential part (the exponential part will be assigned to $1 once it is matched)

 

[spookie]

$str = "ds[traffic_out].value = 8.4164256667e+04" ;
if ( $str =~ /^\w+?\[\w+?\].value\s+=\s+(\w+?.\w+?\+.\w+)/ ) {
        print $1 ;
}

--------------------------------------------------------------------------
I never set a goal because u never know whats going to happen tommorow.

 

[jj0914]

spookle, thank you for your help, it works, now i have another question. Do you guys know how to convert scientific notation into integer, for example, if the "$1 = 8.12456e+05" I wanna convert $1 into a integer like 812456.

 

[rharsh]

Here's a relatively easy way:

use Math::BigFloat;
my $x = Math::BigFloat->new('8.12456e+05');
print $x->bstr();

 

[jj0914]

Thanks rharsh,
it works.