Identifying variable type 3

[jollekox]

Hi,

I am trying to run some lines of code, if a scalar is an float, and not if it is an integer.

Currently, I am trying to do this:

if ( $pages =~ /./ ) {
# do something here
}

But this does not work, any suggestions for a fix?

Thanks in advance!
Best Regards,
Jollekox

 

[EBGreen]

Try

if ( $pages =~ /\./ ) {

 

[uida1154]

Or

if ($pages =~ /(.*)[\.,](.*)/ )
{
    my $before_decimal = $1;
    my $after_decimal = $2;
}

This will make your code compliant with other languages (like dutch) using a "," as decimal symbol.

 

[EBGreen]

Good catch.

 

[duncdude]

@data = ('1234',
         '0.1',
         '.345',
         'abc.345',
         '1.a');
foreach (@data) {
  if ($_ eq int($_)) {
    print "$_ is an integer\n";
  } elsif ($_ =~ m|^(\d+)?\.\d+$|) {
    print "$_ is a float\n";
  } else {
    print "$_ is not a number at all!\n";
  }
}


Kind Regards
Duncan

 

[icrf]

How about straight out of perlfaq4:

http://www.perldoc.com/perl5.8.0/po...her-a-scalar-is-a-number-whole-integer-float-

(link doesn't pick up the last -, sry)

________________________________________
Andrew - Perl Monkey