Perl

[Alain]

hi Struppi,

ausprobieren:

hab ich

$_ = '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";

stimmt.

$_ = '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";

stimmt

$_ = 'A999';

wieso ist das in meiner version eine zahl?

print "$_ ist:\n";
print "Alain sagt:      ". (/[^A-Z]/i ? 'eine' : 'keine' ). " Zahl\n";

bedeutet doch,alles ausser A-Z(ignoriere gross/klein schreibung)
ist diese frage stellung etwa verkehrt?

print "Klaus Mock sagt: " . ( /^[3]+$/i ? 'eine' : 'keine' ). " Zahl\n";
print "Struppi sagt:    ". ( /[^\d.]/? 'keine' : 'eine' ). " Zahl\n";

und "^\d" ist das etwas spezielles?

$_ = '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";

da wäre
print "Klaus Mock sagt: " . ( /^[5]+$/i ? 'eine' : 'keine' ). " Zahl\n";
auch richtig bzw. wenn alle so geschrieben wären.

print "Struppi sagt:    ". ( /[^\d.]/? 'keine' : 'eine' ). " Zahl\n";

Hast ja wieder viel zeit gehabt gestern,jedenfalls was dieses beispiel angeht? ;-)
Grüsse
Alain

---

1. 0-9 ↩︎

2. 0-9 ↩︎

3. 0-9 ↩︎

4. 0-9 ↩︎

5. 0-9. ↩︎