[gelöst]Fehlermeldung in 99_myutils

[matze1999]

Hallo,

ich habe folgende Fehlermeldung(en) im log:

Code Auswählen Erweitern

PERL WARNING: Use of uninitialized value within @valp in string at ./FHEM/99_myUtils.pm line 40X.
Hir die Routine dazu:

Code Auswählen Erweitern

sub departure4 {
  my $url = "https://transport.stefan-biermann.de/publictransportapi/rest/departure/FHEM?from=900415116&provider=Vbb";
  my $result = GetFileFromURL($url);
  my @valp = split(/,/,$result);
  map {$_ =~ s/[\[\]"]//g; } @valp;
  for (my $i=0;$i<3;$i++) {
    my $l = "$valp[$i*3]";
    my $z = "$valp[($i*3)+1]";
    my $dz = "$valp[($i*3)+1]";
    my $m = "$valp[($i*3)+2]";
        if ( $l == 551) {
        $dz=~s/Bahnhof/\Bahnhof über Passage/};
        if ( $l == 598) {
        $dz=~s/Gasthaus/Fürstl\. Drehna ü\. Pießig /};
        fhem("setreading departuresPo Linie$i $l",1);
    fhem("setreading departuresPo Ziel$i $z",1);
    fhem("setreading departuresPo displayZiel$i $dz",1);
    fhem("setreading departuresPo Min$i $m",1);
  }
}
Ich vermute, das es damit zusammenhängt, weil zu bestimmten Zeiten keine daten vorhanden sind. Kann man das "abfangen" und die Variable $valp dann anders belegen oder die Verabeitung unterbinden, sowas wie

Code Auswählen Erweitern

next unless
matze1999

[Otto123]

Hi,

Du kannst den Perl Operator  "or ||" oder "defined or // " verwenden.

Beispiel:

Code Auswählen Erweitern

my $os_name = $ua->os_string() || 'No OS';
Gruß Otto

[matze1999]

Hallo,

danke, ich weiss nicht wie, hab jetzt überall an jede Zeile wo  "$valp" vorkam oder hinter "my @valp"

Code Auswählen Erweitern

|| 'leer' angefügt.

Fehler bleibt.

[matze1999]

so

Code Auswählen Erweitern

sub departure4 {
  my $url = "https://transport.stefan-biermann.de/publictransportapi/rest/departure/FHEM?from=900415116&provider=Vbb";
  my $result = GetFileFromURL($url);
  my @valp = split(/,/,$result);
  map {$_ =~ s/[\[\]"]//g; } @valp;
  for (my $i=0;$i<3;$i++) {
    my $l = "$valp[$i*3]" || 'leer';
    my $z = "$valp[($i*3)+1]" || 'leer';
    my $dz = "$valp[($i*3)+1]"  || 'leer';
    my $m = "$valp[($i*3)+2]" || 'leer';
        if ( $l == 551) {
        $dz=~s/Bahnhof/\Bahnhof über Passage/};
        if ( $l == 598) {
        $dz=~s/Gasthaus/Fürstl\. Drehna ü\. Pießig /};
        fhem("setreading departuresPo Linie$i $l",1);
    fhem("setreading departuresPo Ziel$i $z",1);
    fhem("setreading departuresPo displayZiel$i $dz",1);
    fhem("setreading departuresPo Min$i $m",1);
  }
}

[matze1999]

die erste Fehlermeldung aus der Zeile

Code Auswählen Erweitern

map {$_ =~ s/[\[\]"]//g; } @valp;
bekomme ich so weg:

Code Auswählen Erweitern

map {$_ = '' unless defined $_; $_ =~ s/[\[\]"]//g; } @valp;
nur hier weiss ich nicht weiter:

Code Auswählen Erweitern

for (my $i=0;$i<3;$i++) {
    my $l = "$valp[$i*3]";
    my $z = "$valp[($i*3)+1]";
    my $dz = "$valp[($i*3)+1]";
    my $m = "$valp[($i*3)+2]";

[Otto123]

Code Auswählen Erweitern

my @valp = split(/,/,$result);Du musst einfach hier was sinnvolles reinschreiben. Ich weiß leider nicht was das wäre. und ob $result an der Stelle wirklich undefined ist?

Code Auswählen Erweitern

my @valp = split(/,/,$result) // split(/,/,'willi,lustig,1,2,3,4,5');

[matze1999]

Hallo Otto,

vielen dank, aber ich bekomme das nicht hin.

Wenn nichts fährt: @valp enthält nur einen Wert ("EFA error status: OK") statt der erwarteten drei Abfahrten (mit Linie, Ziel und Zeit). Kann man damit das abfangen?



matze1999

[Otto123]

Naja aber wenn Du "EFA error status: OK" mit einem Split am Komma zerlegen willst wo gar keines ist? Das verstehe ich nicht.

Oder ist es sonst eine liste mit kommas getrennt?

[matze1999]

Hallo,

mein fehler:

wenn Abfahrten sind dann sehen die Daten so aus:

Code Auswählen Erweitern

[["579","Bahnhof","26"],["579","Bahnhof","57"],["579","Bahnhof","87"]]
Wenn keine Abfahrten sind, steht das o.g.:

Code Auswählen Erweitern

EFA error status: OK
Das split Ergebnis ist dann für das erste Reading "EFA error status: OK" und alle anderen bleiben auf dem alten Stand.

Und im log erscheint die Fehlermeldung 

Code Auswählen Erweitern

uninitialized value
Weil ja die restlichen 8 Werte nicht vorhanden sind.

matze1999

[Otto123]

dann man doch am Anfang einfach die Abfrage if ($result eq 'EFA error status: OK') und mach eine "Fehlerbehandlung" mit anschließendem return.

Oder mach eine for (@valp) {}  Schleife wenn es egal ist ob die anderen Readings alte Werte haben.

[matze1999]

@Otto,

so einfach:

sub departure4 {
  my $url = "https://transport.stefan-biermann.de/publictransportapi/rest/departure/FHEM?from=900415116&provider=Vbb";
  my $result = GetFileFromURL($url);
  my @valp = split(/,/,$result);
  if ($result ne 'EFA error status: OK') {
   map {$_ =~ s/[\[\]"]//g; } @valp;
   for (my $i=0;$i<3;$i++) {
     my $l = "$valp[$i*3]";
     my $z = "$valp[($i*3)+1]";
     my $dz = "$valp[($i*3)+1]";
     my $m = "$valp[($i*3)+2]";
         if ( $l == 551) {
         $dz=~s/Bahnhof/\Bahnhof über Südpassage/};
         if ( $l == 598) {
         $dz=~s/Gasthaus/Fürstl\. Drehna ü\. Pießig /};
     fhem("setreading departuresPo Linie$i $l",1);
     fhem("setreading departuresPo Ziel$i $z",1);
     fhem("setreading departuresPo displayZiel$i $dz",1);
     fhem("setreading departuresPo Min$i $m",1)};
} else
   {
   fhem("setreading departuresPo Linie0 EFA","EFA");
    }
}

Das letzte reading nutze ich an anderer Stelle zur Auswertung, deshalb bleibt es mit "EFA" drin.