From Regexp::Common, that should work. Have you looked at the string that your call to RE_num_real returns? What does that string look like?
my $is_binary = RE_num_real(-keep, -group=>3, -sep=>',', -base=>2); print "Checking '$_' against /$is_binary/\n"; if( $_ =~ /$is_binary/ ) { print q{matched a number}; print "Got [$1]\n"; };
In reply to Re: Using Regexp::Common
by Corion
in thread Using Regexp::Common
by justrajdeep
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |