Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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.

Comment on Re: Is a integer or string.
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://766086]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2015-12-01 07:49 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (795 votes), past polls