IsInt() in 99_Utils.pm

[Loredo]

Hallo Rudi,

ich schlage vor, folgende kleine Routine mit in 99_Utils aufzunehmen:

Code Auswählen Erweitern



sub IsInt {
    defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
}


Damit kann man dann in seinem Perl-Code sehr einfach prüfen, ob eine Variable ein Zahlenwert ist oder nicht.


Gruß
Julian

[rudolfkoenig]

Kann ich gerne aufnehmen, ich wuesste aber gerne, wozu das gut ist.

[betateilchen]

Code Auswählen Erweitern

return 1 if($_[0]=~ y/0-9// == length($_[0]));

Ist aus Perfomancesicht sehr viel schneller.

Aber ob man das wirklich in den 99_Utils braucht? Ich weiss nicht.

[Loredo]

Kann ich gerne aufnehmen, ich wuesste aber gerne, wozu das gut ist.

Ich prüfe damit in Modulen Benutzereingaben ab, ob diese tatsächlich einer Zahl entsprechen, bevor ich damit rechne.
Ich dachte mir, das nutzt sicherlich auch der ein oder andere in seiner MyUtils.pm oder in Modulen. Daher mein Vorschlag.

[rudolfkoenig]

@Loredo: Ich halte es zwar nicht fuer weltbewegend, aber habs eingecheckt da es kurz ist, und vermutlich niemanden stoert.
@betateilchen: Hast du Zahlen dafuer, dass deine Version schneller ist? Da sie negative Werte ignoriert, habe ich Loredos Variante eingecheckt.

[betateilchen]

@betateilchen: Hast du Zahlen dafuer, dass deine Version schneller ist?

http://www.perl-community.de/bat/poard/message/133503