Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -lw
use strict;

...
}
$number5 =~ s/(\d=)(\.)(\d+)/$1/;
print "Integer value of \$number5, if desired: " . int($number5);    #
+ using int(); otherwise prints the string literal
  2. or download this
    $number0, 1.00, contains a period
$number0, 1.00, is an Integer        # --> Note 1
$number1, 1, is an Integer
...
Integer  value of $number4, if desired: 0
NO decimal point in $number5, 123e-5
Integer value of $number5, if desired: 0