http://www.perlmonks.org?node_id=369045


in reply to Re: A PerlQt Calculator
in thread A PerlQt Calculator

Oops, good catch. That was my mistake. The display was filtering out results with only one digit.

changing the filter fixes that. 


$result =~ /^-?\d+\.?\d+$/ 

to

$result =~ /^-?\d+\.?\d*?$/

[download]

In Section Cool Uses for Perl