http://qs321.pair.com?node_id=614455


in reply to Check for Positive Integer entry only

This should do it: 
if ( $DataEntry =~ /^\d+$/ ) { 
    print "good entry";
} else { 
    print "bad entry";
}

[download]

In Section Seekers of Perl Wisdom