-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
On Thursday, October 18, 2001, at 09:03 , Michael G Schwern wrote:
> When in doubt, ask Perl.
>
> sub is_num {
> my($cand) = shift;
>
> my $not_num;
> local $^W = 1;
> local $SIG{__WARN__} = sub {
> $not_num = $_[0] =~ /^Argument ".*?" isn't numeric/;
> };
>
> () = $cand + 0;
> return !$not_num;
> }
I first thought of
sub is_num
{
($_[0] eq unpack('d', pack('d', $_[0])));
}
but then I realized that rounding error would probably burn me
sooner or later. Besides, I like yours better.
- --
Craig S. Cottingham
[EMAIL PROTECTED]
PGP key available from:
<http://pgp.ai.mit.edu:11371/pks/lookup?op=get&search=0xA2FFBE41>
ID=0xA2FFBE41, fingerprint=6AA8 2E28 2404 8A95 B8FC 7EFC 136F
0CEF A2FF BE41
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (Darwin)
Comment: For info see http://www.gnupg.org
iD8DBQE7z6pbE28M76L/vkERAotMAKCwpsLQ4UqC1p0Nb8OLbMgUyWBkGACg7Hig
SZEQcqLhbQirtffYaLID8s4=
=jurs
-----END PGP SIGNATURE-----
