Funktion um zu prüfen ob ein Wert numerisch ist

[ahlermi]

Code Auswählen Erweitern


sub IsNumeric {
    my $val = $_[0];
    return $val =~ /^\d+$/ ? 1 : 0;
}


Verwendung:

Code Auswählen Erweitern


  if (IsNumeric($EVTPART0)){
      Log 3, "set Denon_Zone_2 volume $EVTPART0";
      fhem("set Denon_Zone_2 volume $EVTPART0");
  }


[igami]

Es gibt die Funktion "looks_like_number". Deine Funktion prüft auch nur auf ganze, positive Zahlen.