[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