PERL Eingabe auf Zahl prüfen *RELOADED*

[VIPbanner_de]

Hallo, ich möchte gerne eine Formulareingabe prüfen. Es soll geprüft werden ob der Wert nummerisch ist 0-9 wobei die erste Zahl keine 0 sein darf!

Also Eingabe 01 ist nicht erlaubt und Eingabe 1 ist erlaubt. Wie krieg ich es hin das die erste Zahl keine null sein darf?

if (($in{'variable'} =~ /^\d*$/))........

 

[tleilax]

if (($in{'variable'} =~ /^(?:[1-9]\d*)?$/))

Untested.

 

[theHacker]

[1-9][0-9]*

edit:
Notiz an mich: Nicht in Tabs antworten, die schon über ne viertel Stunde offen sind

 

[VIPbanner_de]

super.. funktioniert. danke!

 

[VIPbanner_de]

*reloadet*

Hallo, nachdem das beim letzten Problem so gut geklappt hat habe ich noch eine Frage. Wenn ich einen Wert absichern will das kein HTML gesendet werden kann müsste ich Sonderzeichen wie ()< > /\ sperren.. wie kann ich die Überprüfung machen das solche Zeichen nicht zugelassen sind.. sprich ne Backlist?

 

[theHacker]

Such einfach, ob eins der Zeichen von denen vorkommt. Wenn ja, dann isses ungültig:

if (($in{'variable'} =~ /[()<>\\/]/))
  # ungültig

(weiß ned, ob man in Perl den Backslash escapen muss; kann kein Perl )

Besser wäre aber, wenn du HTML-Tags gezielt entfernst.