Testen, ob variable eine Zahl ist - #133554 (Allgemeines zu Perl)

Dubu

2010-02-23 20:23

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Wenn ein Leerstring keine gültige Zahl sein soll, bleiben nur "int" und "regex" als funktionierende Tests übrig.

Wenn's nicht darauf ankommt, ist es evtl. so

Code: (dl )

1
2

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

noch etwas schneller. Wenn es doch darauf ankommt, muss man wieder ein length dazu nehmen:

Code: (dl )

1
2

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

Es bleibt aber recht schnell.