Perl

[Struppi]

Hast du das probiert?

nö,warum sollte es vielleicht
warn "Der Parameter muss eine Zahl sein!" unless /[^A-Z]/i;
heissen?
Naja es könnte ja noch was anderes ausser buchstaben und zahlen geben z.B. all die sonderzeichen,von daher denke ich ist Klaus Mock's methode bestimmt geeigneter.

ausprobieren:

$_ = '999';
print "$_ ist:\n";
print "Alain sagt:      ". (/[^A-Z]/i ? 'eine' : 'keine' ). " Zahl\n";
print "Klaus Mock sagt: " . ( /^[1]+$/i ? 'eine' : 'keine' ). " Zahl\n";
print "Struppi sagt:    ". ( /[^\d.]/? 'keine' : 'eine' ). " Zahl\n";

$_ = 'A';
print "$_ ist:\n";
print "Alain sagt:      ". (/[^A-Z]/i ? 'eine' : 'keine' ). " Zahl\n";
print "Klaus Mock sagt: " . ( /^[2]+$/i ? 'eine' : 'keine' ). " Zahl\n";
print "Struppi sagt:    ". ( /[^\d.]/? 'keine' : 'eine' ). " Zahl\n";

$_ = 'A999';
print "$_ ist:\n";
print "Alain sagt:      ". (/[^A-Z]/i ? 'eine' : 'keine' ). " Zahl\n";
print "Klaus Mock sagt: " . ( /^[3]+$/i ? 'eine' : 'keine' ). " Zahl\n";
print "Struppi sagt:    ". ( /[^\d.]/? 'keine' : 'eine' ). " Zahl\n";

$_ = '9.99';
print "$_ ist:\n";
print "Alain sagt:      ". (/[^A-Z]/i ? 'eine' : 'keine' ). " Zahl\n";
print "Klaus Mock sagt: " . ( /^[4]+$/i ? 'eine' : 'keine' ). " Zahl\n";
print "Struppi sagt:    ". ( /[^\d.]/? 'keine' : 'eine' ). " Zahl\n";

Struppi.

---

1. 0-9 ↩︎

2. 0-9 ↩︎

3. 0-9 ↩︎

4. 0-9 ↩︎