# This is the important line # s/([\.\d]+)e([-+]?\d+)/$1*10**$2/egi sub de_engineer { my $val = shift; $val =~ s/([\.\d]+)e([-+]?\d+)/$1*10**$2/egi; return $val; }
In reply to De-engineer a number by KM
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |