$_=sprintf("%#1.4e",122.34);
s/e([+-])(.*)/"e($1".int($2).")"/e;
print;
[download]

Just to take it farther... to undo this, you could:

s/([\.\d]+)e\(?([-+]?\d+)\)?/$1*10**$2/egi;
[download]


I would rather have the notation given as 1.2234e+2, simply because Perl sees that as a number. By that I mean if you:

my $foo = 1.2234e(+2);
[download]

Perl will complain. If you do the following, it won't:

my $foo = 1.2234e+2;
[download]

The above RE should handle both cases. This is fun though..

$_=sprintf("%#1.4e",122.34);
print;
s/([\.\d]+)e\(?([-+]?\d+)\)?/$1*10**$2/egi;
print $/;
print;
[download]

Cheers,
KM

A very nice undo regexp there...

I agree with you KM that 1.2234e+2 is a better format for keeping and operations, but for printing (as I believe vnpandey wanted) I rather use the format that pays my bills :)


/brother t0mas

You can do this kind of conversion (and a whole bunch more) using the Number::Format module from CPAN.

Update

Don't know why everyone's been voting this up. It originally said Date::Format which is clearly nonsense :( Thanks to merlyn for pointing it out.