Hi Reiner,
if ($variable eq int($variable))
{
print "nur Ziffern!\n";
}
else
{
print "auch andere Dinge!\n";
}
Gefällt mir! Darf ich das auf die PerlBase tun?
Gruss, Rolf
--
KnowHow veröffentlichen statt patentieren!
KnowHow veröffentlichen statt patentieren!