[OT] perl help on number modification

[Dave Cross]

2010/1/14 Gianluca Cecchi <gianluca.cecchi at gmail.com>:
> Hello,
> any hint on trasforming with perl a number using only one substitute
> function for reg exp?
> Todo:
> 1.20 must become 1.2
> 1.00 must become 1
> 1.25 must remain the same
>
> So that if after the dot are all zeros, I have to subtitute with
> corresponding integer, and in general I have to remove trailing zeros
> for decimal numbers.

You might be better off asking questions like this on a dedicated Perl
forum like Perl Monks (http://perlmonks.org/) or on a mailing list
like the Perl beginners list
(http://lists.perl.org/list/beginners.html).

But I'd probably do something like this:


#!/usr/bin/perl

use strict;
use warnings;

foreach (<DATA>) {
  s/\.?0+$//;
  print;
}

__END__
1.20
1.00
1.25


Cheers,

Dave...