Simple digit length

[twantrd]

Hey all,

I've been reading how to restrict digits to a certain length and I don't see the error.

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $rounded=58.333333;
#$rounded =~ /^\d\d\.\d\d$/; # one solution
$rounded =~ /^\d{2}\.\d{2}/; # another solution
print "Rounded: $rounded\n";

I just want to print only ##.##. Thanks.

 

[twantrd]

Sorry, pasted the wrong one. This is the correct one:

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $rounded=58.333333;
#$rounded =~ /\d{1,2}\.\d{2}/;
#$rounded =~ /^\d\d\.\d\d$/;
my $value = $rounded =~ /^\d\d\.\d\d$/;
print "The rounded percentage is: $value" . "%\n";


The rounded percentage is: 1%

Thanks all....

 

[Kirsle]

When you run a regexp in scalar context, it returns the number of matches (hence, your 1). When you call it in list context, it returns the values matched.

my ($value) = $rounded =~ /(\d\d\.\d\d)/i;

Work with that.

-------------
Cuvou.com | My personal homepage
Project Fearless | My web blog

 

[KevinADC]

or:

my $rounded=58.333333;
$rounded =~ s/^(\d\d\.\d\d).*/$1/;
print $rounded

my $rounded=58.333333;
$rounded = sprintf ("%.2f",$rounded);
print $rounded

------------------------------------------
- Kevin, perl coder unexceptional!

 

[twantrd]

doh! Thanks for the answer guys!

-twantrd