Perl

[Struppi]

if ($var ne int($var))
{
  print "Das ist keine Zahl!\n";
}

schaut gut aus, teste ich...

Aber nur bei ganzen Zahlen.

Am flexibelsten dürfte das sein:
warn "Der Parameter muss eine Zahl sein!" if /[^\d.]/;

Struppi.