[OT] perl help on number modification

Ian Malone ibmalone at gmail.com
Tue Jan 19 18:18:26 UTC 2010


2010/1/14 Dave Cross <davorg at gmail.com>:

> 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
>
>

Not sure about the '?', surely you don't want this to happen:

#!/usr/bin/perl

use strict;
use warnings;

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

__END__
1.20
1.00
1.25
10

To add to Jake Peavy's comment, add 0 to string representing a number:
#!/usr/bin/perl

use strict;
use warnings;

foreach (<DATA>) {
 $_="$_";
 print "$_";
 $_=$_+0;
 print "$_\n";
}
__END__
1.20
1.00
1.25
10

-- 
imalone


More information about the users mailing list