qx liefert nichts zurück

[petibub]

Hallo!

Ich habe ein dummes Anfängerproblem: qx liefert bei mir nichts zurück.

Wenn ich in der FHEM Konsole { return qx(ls) } eingebe, bekomme ich nichts zurück. Oder auch { return `pwd` } liefert nichts. Es liegt also nicht an der Schreibweise...

Das Problem ist übrigens beim Aufruf von ping in 99_myUtils aufgetaucht:

Code Auswählen Erweitern

my $ret = qx(ping -c 1 -q google.com);
if ($ret =~ /1 received/)
liefert Use of uninitialized value $ret in pattern match (m//) ...

Ich konnte es auf den fehlende Rückgabewert von qx rückverfolgen. Habt ihr vielleicht Idee woran das liegen könnte?

lg; Piotr

[betateilchen]

Bei mir funktioniert Dein Code völlig problemlos.

Sowohl das hier:

Code Auswählen Erweitern


sub test {
my $ret = qx(ping -c 1 -q google.com);
if ($ret =~ /1 received/) { return "gefunden" };
}


als auch

Code Auswählen Erweitern

{qx(ls)}

als auch

Code Auswählen Erweitern

{return qx(ls)}

in der FHEM Befehlszeile liefern bei mir die erwarteten Ergebnisse.

Stehen denn irgendwelche Hinweis im Logfile, warum es nicht funktionieren könnte?

[petibub]

Danke fürs nachschauen!

Ich habe

Code Auswählen Erweitern


{ my $ret = qx(ping -c 1 -q google.com);; if ($ret =~ /1 received/) { return "gefunden" };; }

ausprobiert und mit verbose=5 habe ich in der log-Datei:

Code Auswählen Erweitern


PERL WARNING: Use of uninitialized value $ret in pattern match (m//) at (eval 664536) line 1.

bekommen. Also tatsächlich liefert qx nichts. Ich habe inzwischen perl upgrade bemacht (buster auf R PI, perl auf 5.28) - brachte aber nichts.
Ist das vielleicht ein Rechteprobleme?

[Christoph Morrison]

Code Auswählen Erweitern

{ my $ret = qx(ping -c 1 -q google.com);; if ($ret =~ /1 received/) { return "gefunden" };; }

liefert bei mir (wie erwartet) gefunden zurück.

Hast du ping überhaupt installiert?

[betateilchen]

Hast du ping überhaupt installiert?

wenn das die Ursache wäre, gäbe es einen entsprechenden Fehlerhinweis im Log:

Code Auswählen Erweitern

2020.10.29 20:47:54 1: PERL WARNING: Can't exec "ping2": No such file or directory at ./FHEM/99_myUtils.pm line 22.

[Christoph Morrison]

wenn das die Ursache wäre, gäbe es einen entsprechenden Fehlerhinweis im Log

Ich weiß, aber weißt du ob petibub uns überhaupt alle relevanten Logeinträge kopiert hat?

[petibub]

Hast du ping überhaupt installiert?

Berechtigte Frage - Ja, habe ich. ping funktioniert problemlos in der Bash, ich habe auch andere Befehle ausprobiert  - in Wirklichkeit brauch ich sendEmail, das in Bash geht aber von FHEM aus nicht.

Habe noch stacktrace auf 1 und verbose auf 5 gestellt und dann

Code Auswählen Erweitern


{ my $ret = qx(ping -c 1 -q google.com);; if ($ret =~ /1 received/) { return "gefunden" };; }

ausgeführt. Log:

Code Auswählen Erweitern


2020.10.30 16:23:24 5: Cmd: >{ my $ret = qx(ping -c 1 -q google.com); if ($ret =~ /1 received/) { return "gefunden" }; }<
2020.10.30 16:23:24 1: PERL WARNING: Use of uninitialized value $ret in pattern match (m//) at (eval 700271) line 1.
2020.10.30 16:23:24 3: eval: { my $ret = qx(ping -c 1 -q google.com); if ($ret =~ /1 received/) { return "gefunden" }; }
2020.10.30 16:23:24 1: stacktrace:
2020.10.30 16:23:24 1:     main::__ANON__                      called by (eval 700271) (1)
2020.10.30 16:23:24 1:     (eval)                              called by fhem.pl (1135)
2020.10.30 16:23:24 1:     main::AnalyzePerlCommand            called by fhem.pl (1160)
2020.10.30 16:23:24 1:     main::AnalyzeCommand                called by fhem.pl (1089)
2020.10.30 16:23:24 1:     main::AnalyzeCommandChain           called by ./FHEM/01_FHEMWEB.pm (2678)
2020.10.30 16:23:24 1:     main::FW_fC                         called by ./FHEM/01_FHEMWEB.pm (951)
2020.10.30 16:23:24 1:     main::FW_answerCall                 called by ./FHEM/01_FHEMWEB.pm (578)
2020.10.30 16:23:24 1:     main::FW_Read                       called by fhem.pl (3753)
2020.10.30 16:23:24 1:     main::CallFn                        called by fhem.pl (748)


Hilft das irgendwie?

Ich habe übrigens Buster mit Touchscreen auf R Pi installiert. Hilft diese Info irgendwie?
lG; Piotr

[petibub]

Inzwischen weiß ich, dass es an meinem Perl oder System liegt. Denn in der Bash

Code Auswählen Erweitern

perl -e "qx(ping -c 1 -q google.com);"
liefert nichts zurück.

Vielleicht habe ich irgendwie STDOUT umgebogen? Ich schaue mal was das mächtige Internet dazu sagt... 

[amenomade]

Inzwischen weiß ich, dass es an meinem Perl oder System liegt. Denn in der Bash

Code Auswählen Erweitern

perl -e "qx(ping -c 1 -q google.com);"
liefert nichts zurück.

Das ist ganz normal.

Was liefert aber

Code Auswählen Erweitern

perl -e "print qx(ping -c 1 -q google.com);"?

Ansonsten, was kommt in der Log wenn Du folgendes in Fhem eingibst?

Code Auswählen Erweitern

{ print qx(date) }

Zusätzliche Tests in der Console:

Code Auswählen Erweitern

perl -le'use Config; print $Config{sh}'
Dann:

Code Auswählen Erweitern

file /xxx/xxxx wo /xxx/xxxx das Ergebnis vom vorherigen Perl-Kommando ist

[petibub]

Lieber amenomade, danke dass du mir hilfst!

Das ist ganz normal.

ah, habe jetzt auch gemerkt. Falsche Fährte...

Was liefert aber

Code Auswählen Erweitern

perl -e "print qx(ping -c 1 -q google.com);"?

Damit bekomme ich ein richtiges Ergebnis:

Code Auswählen Erweitern

PING google.com (172.217.23.46) 56(84) bytes of data.

--- google.com ping statistics ---
1 packets transmitted, 1 received, 0% packet loss, time 0ms
rtt min/avg/max/mdev = 12.628/12.628/12.628/0.000 ms


Ansonsten, was kommt in der Log wenn Du folgendes in Fhem eingibst?

Code Auswählen Erweitern

{ print qx(date) }

Dann bekomme ich leider nur:

Code Auswählen Erweitern

1

Zusätzliche Tests in der Console:

Code Auswählen Erweitern

perl -le'use Config; print $Config{sh}'

Da bekomme ich

Code Auswählen Erweitern

/bin/sh

Und mit:

Code Auswählen Erweitern

file /bin/sh
bekomme ich:

Code Auswählen Erweitern

/bin/sh: symbolic link to dash
Kannst du damit etwas anfangen?
Danke!

[amenomade]

Ich habe vermutet, dass vielleicht etwas im dem Shell gedreht wurde, aber es scheint in Ordnung zu sein.

Code Auswählen Erweitern

{ print qx(date) }liefert ja 1 zurück. Ich habe gefragt, was in der Log dabei kommt.

Jetzt wäre die Frage: was kommt in der Log bei

Code Auswählen Erweitern

{print qx(ping -c 1 -q google.com)} in der Kommandozeile von Fhem
Das um sicher zu stellen, dass Du nicht zwei unterschiedliche Versionen von Perl hast (eine mit User pi in der Console, und eine andere, die Fhem benutzt), die unterschiedlich reagieren.

[betateilchen]

ich geh mal Popcorn machen...

[Christoph Morrison]

Dann bekomme ich leider nur:

Code Auswählen Erweitern

1

Im Log oder im Webfrontend angezeigt? Im Log sollte halt das Datum stehen.

Code Auswählen Erweitern

/bin/sh: symbolic link to dash
Kannst du damit etwas anfangen?

Abhängig vom OS ist das ok.

Was wird bei

Code Auswählen Erweitern

{use Data::Dumper;; Dumper(%ENV);;}

angezeigt?

[Christoph Morrison]

ich geh mal Popcorn machen...

Ich hätte gerne welches mit Karashell.

[amenomade]

ich geh mal Popcorn machen...

Du kannst aber auch gerne weitere konstruktive Vorschläge machen, um das Problem zu begrenzen. Das mit mehreren Perl Installationen habe ich schon mehrmals hier gesehen, deswegen frage ich. Aber der TE freut sich bestimmt auf andere mögliche Erklärungen seines Problems.