Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: Is a integer or string.

by gam3 (Curate)
on May 25, 2009 at 19:11 UTC ( #766086=note: print w/replies, xml ) Need Help??

in reply to Is a integer or string.

Here is a little piece of code you might find informative:
#!/usr/bin/perl $a = shift; $b = shift; #for intergers only if ($a =~ /^\d+$/ && $b =~ /^\d+$/) { printf "$a == $b (%s)\n", $a == $b ? "yes" : "no"; } else { printf "$a eq $b (%s)\n", $a eq $b ? "yes" : "no"; } #or for floating point numbers if ($a =~ /^\d+(\.\d?)?$/ && $b =~ /^\d+(\.\d?)$/) { printf "$a == $b (%s)\n", $a == $b ? "yes" : "no"; } else { printf "$a eq $b (%s)\n", $a eq $b ? "yes" : "no"; }
> perl diff 1 1.
1 eq 1. (no)
1 == 1. (yes)

This still needs work, as it does not see that 1e2 == 100.

-- gam3
A picture is worth a thousand words, but takes 200K.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://766086]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (10)
As of 2018-07-18 13:17 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (393 votes). Check out past polls.