Perl Fehler: PERL WARNING: Use of uninitialized value

Cybers · 25 Januar 2025, 19:49:24

Hallo,

Ich bekomme bei folgendem Code leider diese Fehlermeldung im Log:

2025.01.25 19:23:36 1: PERL WARNING: Use of uninitialized value $lngmin in division (/) at (eval 2731558) line 15.
2025.01.25 19:23:36 1: PERL WARNING: Use of uninitialized value $latmin in division (/) at (eval 2731558) line 10.

Code Auswählen

 define Robocard weblink htmlCode {\
 my $lat=ReadingsVal('MQTT2_ROBONECTC1416C','latitude','0,0');;\
 my $lng=ReadingsVal('MQTT2_ROBONECTC1416C','longitude','0,0');;\
 $lat =~ s/\s//;; \
 $lng =~ s/\s//;;\
\
 my @minlat= split '°',$lat;;\
 my $latgrad=$minlat[0];;\
 my $latmin=$minlat[1];;\
 $lat=$latmin/60+$latgrad;;\
\
 my @minlng= split '°',$lng;;\
 my $lnggrad=$minlng[0];;\
 my $lngmin=$minlng[1];;\
 $lng=$lngmin/60+$lnggrad;;\
\
 my $gpsread="$lat $lng";;\
 fhem("setreading gpsdata state $gpsread");;\
 my $url="https://maps.google.com/maps?hl=en&q=$lat,$lng&ie=UTF8&t=&t=k&z=20&iwloc=B&output=embed";;\
 return "<iframe src=$url width=700 height=440></iframe>"\
 }
attr Robocard room _Garten

Hat einer eine Idee woran das liegt?

Danke und Gruß, Sascha

betateilchen · 25 Januar 2025, 20:14:21

Vermutlich sind die Angaben in Deinen ReadingsVal() Aufrufen nicht korrekt und es wird der Standardwert 0.0 gezogen. da steht aber kein Gradzeichen drin, an dem gesplittet werden könnte. Deshalb sind in [1] keine Daten vorhanden, die in den Zuweisungen verwendet werden können. Somit sind $latmin und $lonmin schlichtweg nicht vorhanden.

Cybers · 25 Januar 2025, 21:18:05

Hier mal das die Infos zum dazugehörigen Device:

Code Auswählen

 defmod MQTT2_ROBONECTC1416C MQTT2_DEVICE ROBONECTC1416C
attr MQTT2_ROBONECTC1416C readingList ROBONECTC1416C:mqtt:.* mqtt\
ROBONECTC1416C:device/serial:.* serial\
ROBONECTC1416C:device/name:.* name\
ROBONECTC1416C:wlan/rssi:.* rssi\
ROBONECTC1416C:mower/status:.* status\
ROBONECTC1416C:mower/status/plain:.* plain\
ROBONECTC1416C:mower/substatus:.* substatus\
ROBONECTC1416C:mower/substatus/plain:.* plain\
ROBONECTC1416C:mower/stopped:.* stopped\
ROBONECTC1416C:mower/status/duration:.* duration\
ROBONECTC1416C:mower/mode:.* mode\
ROBONECTC1416C:mower/distance:.* distance\
ROBONECTC1416C:mower/battery/charge:.* charge\
ROBONECTC1416C:mower/statistic/hours:.* hours\
ROBONECTC1416C:mower/timer/next/unix:.* unix\
ROBONECTC1416C:mower/timer/next/date:.* date\
ROBONECTC1416C:mower/timer/next/time:.* time\
ROBONECTC1416C:mower/timer/ch0/enable:.* enable\
ROBONECTC1416C:mower/timer/ch0/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch0/start:.* start\
ROBONECTC1416C:mower/timer/ch0/end:.* end\
ROBONECTC1416C:mower/timer/ch1/enable:.* enable\
ROBONECTC1416C:mower/timer/ch1/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch1/start:.* start\
ROBONECTC1416C:mower/timer/ch1/end:.* end\
ROBONECTC1416C:mower/timer/ch2/enable:.* enable\
ROBONECTC1416C:mower/timer/ch2/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch2/start:.* start\
ROBONECTC1416C:mower/timer/ch2/end:.* end\
ROBONECTC1416C:mower/timer/ch3/enable:.* enable\
ROBONECTC1416C:mower/timer/ch3/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch3/start:.* start\
ROBONECTC1416C:mower/timer/ch3/end:.* end\
ROBONECTC1416C:mower/timer/ch4/enable:.* enable\
ROBONECTC1416C:mower/timer/ch4/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch4/start:.* start\
ROBONECTC1416C:mower/timer/ch4/end:.* end\
ROBONECTC1416C:mower/timer/ch5/enable:.* enable\
ROBONECTC1416C:mower/timer/ch5/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch5/start:.* start\
ROBONECTC1416C:mower/timer/ch5/end:.* end\
ROBONECTC1416C:mower/timer/ch6/enable:.* enable\
ROBONECTC1416C:mower/timer/ch6/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch6/start:.* start\
ROBONECTC1416C:mower/timer/ch6/end:.* end\
ROBONECTC1416C:mower/timer/ch7/enable:.* enable\
ROBONECTC1416C:mower/timer/ch7/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch7/start:.* start\
ROBONECTC1416C:mower/timer/ch7/end:.* end\
ROBONECTC1416C:mower/timer/ch8/enable:.* enable\
ROBONECTC1416C:mower/timer/ch8/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch8/start:.* start\
ROBONECTC1416C:mower/timer/ch8/end:.* end\
ROBONECTC1416C:mower/timer/ch9/enable:.* enable\
ROBONECTC1416C:mower/timer/ch9/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch9/start:.* start\
ROBONECTC1416C:mower/timer/ch9/end:.* end\
ROBONECTC1416C:mower/timer/ch10/enable:.* enable\
ROBONECTC1416C:mower/timer/ch10/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch10/start:.* start\
ROBONECTC1416C:mower/timer/ch10/end:.* end\
ROBONECTC1416C:mower/timer/ch11/enable:.* enable\
ROBONECTC1416C:mower/timer/ch11/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch11/start:.* start\
ROBONECTC1416C:mower/timer/ch11/end:.* end\
ROBONECTC1416C:mower/timer/ch12/enable:.* enable\
ROBONECTC1416C:mower/timer/ch12/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch12/start:.* start\
ROBONECTC1416C:mower/timer/ch12/end:.* end\
ROBONECTC1416C:mower/timer/ch13/enable:.* enable\
ROBONECTC1416C:mower/timer/ch13/weekdays:.* weekdays\
ROBONECTC1416C:mower/timer/ch13/start:.* start\
ROBONECTC1416C:mower/timer/ch13/end:.* end\
ROBONECTC1416C:mower/error/code:.* code\
ROBONECTC1416C:mower/error/message:.* message\
ROBONECTC1416C:health/voltage/int33:.* int33\
ROBONECTC1416C:health/voltage/ext33:.* ext33\
ROBONECTC1416C:health/voltage/batt:.* batt\
ROBONECTC1416C:health/climate/temperature:.* temperature\
ROBONECTC1416C:health/climate/humidity:.* humidity\
ROBONECTC1416C:mower/blades/quality:.* quality\
ROBONECTC1416C:mower/blades/days:.* days\
ROBONECTC1416C:mower/blades/hours:.* hours\
ROBONECTC1416C:gps/satellites:.* satellites\
ROBONECTC1416C:gps/latitude:.* latitude\
ROBONECTC1416C:gps/longitude:.* longitude\
ROBONECTC1416C:weather/service:.* service\
ROBONECTC1416C:weather/data/break:.* break\
ROBONECTC1416C:weather/data/rain:.* rain\
ROBONECTC1416C:weather/data/temperature:.* temperature\
ROBONECTC1416C:weather/data/humidity:.* humidity\
ROBONECTC1416C:mower/timer/ch13/we1\x29:.* we1_\
ROBONECTC1416C:mower/timer/ch12/er/ch1:.* ch1\
ROBONECTC1416C:mower/prevent:.* prevent
attr MQTT2_ROBONECTC1416C room MQTT2_DEVICE
#   CID        ROBONECTC1416C
#   DEF        ROBONECTC1416C
#   FUUID      6654e793-f33f-6bed-032c-cb0fd6acbe958050
#   IODev      Gardena_MQTT
#   NAME       MQTT2_ROBONECTC1416C
#   NR         1538
#   STATE      ???
#   TYPE       MQTT2_DEVICE
#   READINGS:
#     2025-01-25 19:00:17   IODev           Gardena_MQTT
#     2024-11-06 06:01:44   Taupunkt        5.0
#     2024-11-06 06:01:44   absoluteFeuchte 6.7
#     2024-11-06 08:42:11   batt            18.9
#     2024-11-06 08:21:27   break           false
#     2024-07-01 21:21:24   ch1             3/ena
#     2024-11-06 06:01:43   charge          99
#     2024-11-06 06:01:44   code            0
#     2024-11-06 06:42:26   date            1970-01-01
#     2024-11-06 08:03:38   days            86
#     2024-11-06 06:01:43   distance        0
#     2024-11-06 08:41:54   duration        0
#     2024-11-06 06:01:44   enable          false
#     2024-11-06 06:01:44   end             00:00
#     2024-11-06 08:41:59   ext33           0.0
#     2024-11-06 06:01:44   hours           309
#     2024-11-06 08:06:27   humidity        92
#     2024-11-06 06:01:44   int33           3.3
#     2024-11-06 08:41:41   latitude        50°59.4432 N
#     2024-11-06 08:41:41   longitude       1°20.2265 E
#     2024-11-06 06:01:44   message         Fehler 0
#     2024-11-06 08:21:33   mode            0
#     2024-11-06 08:45:34   mqtt            offline
#     2024-11-06 06:01:43   name            Mein Automower
#     2024-11-06 08:41:54   plain           Aus
#     2024-11-06 06:42:26   prevent         0
#     2024-11-06 06:01:44   quality         0
#     2024-11-06 07:30:27   rain            0
#     2024-11-06 08:42:25   rssi            -61
#     2024-11-06 08:39:40   satellites      17
#     2024-11-06 06:01:43   serial          05DA2D31-34305347-43053253
#     2024-11-06 06:01:44   service         OpenWeatherMap
#     2024-11-06 06:01:44   start           00:00
#     2024-11-06 08:41:54   status          16
#     2024-11-06 06:01:43   stopped         true
#     2024-09-20 15:06:51   subscriptions   control/#
#     2024-11-06 06:01:43   substatus       0
#     2024-11-06 06:01:44   temperature     6
#     2024-11-06 06:42:26   time            00:00:00
#     2024-11-06 06:42:26   unix            0
#     2024-06-28 19:03:24   we1_            device
#     2024-11-06 06:01:44   weekdays        0x40
#
setstate MQTT2_ROBONECTC1416C 2025-01-25 19:00:17 IODev Gardena_MQTT
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 Taupunkt 5.0
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 absoluteFeuchte 6.7
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:42:11 batt 18.9
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:21:27 break false
setstate MQTT2_ROBONECTC1416C 2024-07-01 21:21:24 ch1 3/ena
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:43 charge 99
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 code 0
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:42:26 date 1970-01-01
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:03:38 days 86
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:43 distance 0
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:41:54 duration 0
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 enable false
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 end 00:00
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:41:59 ext33 0.0
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 hours 309
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:06:27 humidity 92
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 int33 3.3
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:41:41 latitude 50°57.5536 N
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:41:41 longitude 7°8.4413 E
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 message Fehler 0
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:21:33 mode 0
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:45:34 mqtt offline
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:43 name Mein Automower
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:41:54 plain Aus
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:42:26 prevent 0
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 quality 0
setstate MQTT2_ROBONECTC1416C 2024-11-06 07:30:27 rain 0
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:42:25 rssi -61
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:39:40 satellites 17
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:43 serial 05DA2D31-34305347-43053253
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 service OpenWeatherMap
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 start 00:00
setstate MQTT2_ROBONECTC1416C 2024-11-06 08:41:54 status 16
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:43 stopped true
setstate MQTT2_ROBONECTC1416C 2024-09-20 15:06:51 subscriptions control/#
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:43 substatus 0
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 temperature 6
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:42:26 time 00:00:00
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:42:26 unix 0
setstate MQTT2_ROBONECTC1416C 2024-06-28 19:03:24 we1_ device
setstate MQTT2_ROBONECTC1416C 2024-11-06 06:01:44 weekdays 0x40

Beta-User · 25 Januar 2025, 21:30:09

Da ist im Code ein Anführungszeichen verrutscht....
(Zeile 2)

Cybers · 25 Januar 2025, 21:41:00

Zitat von: Beta-User am 25 Januar 2025, 21:30:09Da ist im Code ein Anführungszeichen verrutscht....
(Zeile 2)

Sorry, das ist mir beim nachträglichen editieren passiert. Ich habe es im ersten Beitrag korrigiert.

Jamo · 26 Januar 2025, 10:48:21

Mach Dir doch einfach mal einen Log oder einen Print in deinen code,
und schau Dir dann im Logfile an, was passiert. Dann kannst Du das doch ganz einfach debuggen, und siehst welchen Wert latmin hat. Siehe Beispiel im code.

Ausserdem hast Du in den ersten beiden Zeilen '0,0' mit Komma als Standardwert eingetragen, falls es keinen Wert fuer latitude und longitude gibt. Das muss aber ein Dezimalpunkt sein, besser also

Code Auswählen

define Robocard weblink htmlCode {\
 my $lat=ReadingsNum('MQTT2_ROBONECTC1416C','latitude',0.0);;\
 my $lng=ReadingsNum('MQTT2_ROBONECTC1416C','longitude',0.0);;\
 $lat =~ s/\s//;; \
 $lng =~ s/\s//;;\
\
 my @minlat= split '°',$lat;;\
 my $latgrad=$minlat[0];;\
 my $latmin=$minlat[1];;\
  
Log 3, "latmin=$latmin";;\


 $lat=$latmin/60+$latgrad;;\
\
 my @minlng= split '°',$lng;;\
 my $lnggrad=$minlng[0];;\
 my $lngmin=$minlng[1];;\
 $lng=$lngmin/60+$lnggrad;;\
\
 my $gpsread="$lat $lng";;\
 fhem("setreading gpsdata state $gpsread");;\
 my $url="https://maps.google.com/maps?hl=en&q=$lat,$lng&ie=UTF8&t=&t=k&z=20&iwloc=B&output=embed";;\
 return "<iframe src=$url width=700 height=440></iframe>"\
 }
attr Robocard room _Garten

betateilchen · 26 Januar 2025, 11:26:24

Man bevorzuge einfache Lösungen...

Code Auswählen

defmod Robocard weblink htmlCode {  \
 my $lat = ReadingsVal('MQTT2_ROBONECTC1416C','latitude','0°0');;\
 my $lon = ReadingsVal('MQTT2_ROBONECTC1416C','longitude','0°0');;\
 $lat =~ m/(\d+)°([\d\.]+)/;;\
 $lat =  $1 + $2/60;;\
 $lon =~ m/(\d+)°([\d\.]+)/;;\
 $lon =  $1 + $2/60;;\
 fhem sprintf("setreading gpsdata state %.4f %.4f",$lat,$lon);;\
 my $url="https://maps.google.com/maps?hl=en&q=$lat,$lon&ie=UTF8&t=&t=k&z=20&iwloc=B&output=embed";;\
 return "<iframe src=$url width=700 height=440></iframe>"\
}

Cybers · 27 Januar 2025, 11:33:58

Zitat von: betateilchen am 26 Januar 2025, 11:26:24Man bevorzuge einfache Lösungen...

Code Auswählen Erweitern
defmod Robocard weblink htmlCode { \ my $lat = ReadingsVal('MQTT2_ROBONECTC1416C','latitude','0°0');;\ my $lon = ReadingsVal('MQTT2_ROBONECTC1416C','longitude','0°0');;\ $lat =~ m/(\d+)°([\d\.]+)/;;\ $lat = $1 + $2/60;;\ $lon =~ m/(\d+)°([\d\.]+)/;;\ $lon = $1 + $2/60;;\ fhem sprintf("setreading gpsdata state %.4f %.4f",$lat,$lon);;\ my $url="https://maps.google.com/maps?hl=en&q=$lat,$lon&ie=UTF8&t=&t=k&z=20&iwloc=B&output=embed";;\ return "<iframe src=$url width=700 height=440></iframe>"\ }

Danke für die Unterstützung. Hierbei bekomme ich aber dann noch diese Fehler:
PERL WARNING: Argument "20.2265E" isn't numeric in division (/) at (eval 2872925) line 15.
PERL WARNING: Argument "59.4432N" isn't numeric in division (/) at (eval 2872925) line 10.

PS: Kannst du das Bild bitte rausnehmen oder mit meinen geänderten Werten updaten.

betateilchen · 27 Januar 2025, 12:02:03

Zitat von: Cybers am 27 Januar 2025, 11:33:58Danke für die Unterstützung. Hierbei bekomme ich aber dann noch diese Fehler:

Die Meldungen kommen aber nicht aus meinem vorgeschlagenen weblink, in meinem code gibt es weder eine Zeile 10 noch eine Zeile 15.
Und in dem vorgeschlagenen Code ist auch kein alphanumerischer Anteil mehr vorhanden, der in einer Berechnung verwendet werden soll.

betateilchen · 27 Januar 2025, 12:19:47

Zitat von: Cybers am 27 Januar 2025, 11:33:58PERL WARNING: Argument "20.2265E" isn't numeric in division (/) at (eval 2872925) line 15.
PERL WARNING: Argument "59.4432N" isn't numeric in division (/) at (eval 2872925) line 10.

Diese Warnungen bekomme ich auch, wenn ich Deinen im ersten Beitrag angegebenen Code verwende.

"Zahlen" mit E oder N am Ende, sind halt nicht numerisch.

Cybers · 11 Februar 2025, 12:29:30

Sorry, ich hatte mich beim Device vertan. Bei dem genannten Device mit dem vorgeschlagenen Code von betateilchen läuft es. Danke dafür!

Jetzt habe ich allerdings noch ein zweites Device, bei dem die Werte der beiden Readings Latitude und Longitude etwas anders aufgebaut sind:

lat 46.959457
long 4.140601

Damit bekommen ich dann diesen Fehler:
Argument "\n my $lat = ReadingsVal('ESPEasy_GPS_Tracker_GPS','lat'..." isn't numeric in addition (+) at (eval 2045902) line 7.
PERL WARNING: Use of uninitialized value $2 in division (/) at (eval 2045902) line 7.

betateilchen · 11 Februar 2025, 13:12:11

Verwende bitte code tags. Danke!
Poste bitte die gesamte Fehlermeldung (in code tags).
Poste ein list des devices, aus dem die Fehlermeldung kommt (in code tags).

Mensch, das sind doch die absoluten Basics, die man als Fragesteller UNGEFRAGT beisteuern sollte, wenn man um Hilfe sucht.

Verstehst Du eigentlich, was der perl code in Deinem weblink überhaupt tut/tun soll? Ich frage nur, weil...

Wenn die Gradangabe schon als fertiger Dezimalwert daherkommt, brauchst Du doch gar nix rumrechnen, damit ein Bild von der Eichenhainallee rauskommt.

Code Auswählen

defmod wl_test weblink htmlCode {\
 my $lat = 50.959457;;\
 my $lon = 7.140601;;\
 fhem sprintf("setreading gpsdata state %.4f %.4f",$lat,$lon);;\
 my $url="https://maps.google.com/maps?hl=en&q=$lat,$lon&ie=UTF8&t=&t=k&z=20&iwloc=B&output=embed";;\
 return "<iframe src=$url width=700 height=440></iframe>"\
}

Cybers · 11 Februar 2025, 16:03:53

Sorry für die nicht vorhandenen Code-Tags... Das "list" des Devices hatte ich mir gespart da es ja schon in meinem ersten Post stand und die geänderten Werte des Readings hatte ich ja (auch ohne Code-Tags) geschrieben. Perl ist jetzt nicht ganz so meins und bei diesen ganzen Umrechnechnungen bin ich weitestgehen raus. Aber, daß ich nicht umrechnen muß, hat mir weitergeholfen. Geht jetzt. Danke für den Hinweis in die richtige Richtung!