User since: Mar 03, 2004 at 09:25 UTC Last here: Apr 11, 2013 at 11:53 UTC (5 weeks ago) Experience: 3879 Level: Curate (13) Writeups: 415 Location: The Netherlands User's localtime: May 19, 2013 at 06:37 CEST Scratchpad: View

My nodes that made it to the front page

Ways to find out if $scalar is numeric

tye and me having a little fun in the chatterbox.

[muba]: my $is_string = ($scalar ^ $scalar) eq ("$scalar" ^ "$scalar");
[tye]: my $isNumber = $scalar ^ '00' eq $scalar;
[tye]: my $isNumber = do { my $warn= 0; local $SIG{__WARN__}= sub { $warn= 1 }; use warnings; $scalar^=''; $warn };
tye]: my $isNumber = ( $scalar ^ "$scalar" ) =~ /\d/;