Pattern mit Sonderzeichen - #137347 (Allgemeines zu Perl)

Linuxer

2010-05-19 16:14

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Ich hätte da noch ein paar Gedanken zu:

da Du $plzsuche numerisch mit $s1 vergleichst, scheinen also nur Zahlen in $plzsuche erwartet zu werden
bevor der numerische Vergleich mit $plzsuche stattfindet, würde ich auf Gültigkeit prüfen
Wenn der numerische Vergleich keine Warnung ausgibt, wenn $plzsuche eine Nichtziffer ausgibt, dann ist das ein Indiz dafür, dass Du keine warnings eingeschaltet hast.
Wenn keine warnings aktiv sind, vermute ich, ist auch kein strict aktiv. Beides würde ich verwenden.

Beispiel:

Code (perl): (dl )

if ( $plzsuche =~ m{\D} ) {
  # $plzsuche enthaelt eine Nichtziffer => Fehler
  die "Fehler: PLZ Suche ist nicht gültig (nur ganze Zahlen erlaubt): $plzsuche\n";
}
# So könnte es dann weitergehen ...
elsif ( $s1 <= $plzsuche && $s3 >= $plzsuche ){
  # ...
}

Skripte würde ich immer mit diesen zwei Zeilen beginnen lassen:

Code (perl): (dl )

1
2

use strict;
use warnings;

"strict" zwingt Dich, sauberer zu arbeiten, siehe auch: Wiki:

UseStrict
"warnings" gibt Dir Warnungen aus, wenn Du beispielsweise eine Variable ohne definierten Inhalt in einem Vergleich verwendest, oder eine Nicht-Nummer bei einem numerischen Vergleich...

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!