Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: 1 vs "1"

by ariels (Curate)
on Sep 12, 2001 at 19:24 UTC ( #111933=note: print w/replies, xml ) Need Help??

in reply to 1 vs "1"

You want to use the perlguts macros SvIOKp, SvNOKp, SvPOKp (test for internal representation as IV (integer), NV (double) or PV (string)). Here's Inline code to do it (you'll need to get the Inline module from CPAN):
package types; use Inline C => <<'END_C'; int is_iv(SV *x) { return SvIOKp(x) != 0; } int is_nv(SV *x) { return SvNOKp(x) != 0; } int is_pv(SV *x) { return SvPOKp(x) != 0; } END_C 1;

But I'm not sure I'd recommend doing this! Perl users expect to have all integers autostringified when needed. Also, I wouldn't try it on magic "double valued scalars" (which have different string and numeric values), like $!.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2022-08-10 11:33 GMT
Find Nodes?
    Voting Booth?

    No recent polls found