[wiregate] - √ - Perl - If Statement String Vergleich

[kleinklausi]

Hallo,

kann mir bitte mal kurz jemand die Augen öffnen? Warum springt Perl niemals beim IF in die erste Klammer. Auch nicht wenn $online wirklich 'true' ist. Jedenfalls sagt das ein print $online.

Ich hoffe die Antwort ist so einfach, dass ich mich gleich schämen muss...

my $online;
$online = `curl http://solarlog/base_vars.js?nocache -s --connect-timeout 1 | grep isOnline | sed -e "s/var isOnline=//g"`;

if ($online eq 'true') {
    print "is online: $online";
}
else {
    print "is not online: $online";
}

Danke Moritz

[Bodo]

Hoi

Ist true und false nicht 0 und 1 im Sinne von Binär?

[kleinklausi]

Hi Bodo,

ich glaubte sowas verstanden zu haben, dass es in Perl kein True und False wie in anderen Sprachen gibt. Alles was nicht undef oder so ist, ist true...

Das grep, sed Gewurschtel gibt mir den string "true" oder "false" wieder. Der muss doch weiterverarbeitet werden können...?

Gruß Moritz

[Robert_Mini]

Ich würde spontan $online eq "true" probieren.
Aber ganz klar war mir eq Vs. == und ' Vs. " in perl auch noch nie.

Lg Robert

[kleinklausi]

das ändert leider nichts.

Ich dachte bei " werden auch Variablen innerhalb des Strings interpretiert. Bei ' nicht.

[JuMi2006]

Deine Anführungsstriche rund um curl... sehen komisch aus.
Das hattest Du doch schon beim Nachdimmen Plugin

Ich glaube das ist es, mach doch mal in der zweiten Zeile ein print oder plugin_log, und check mal was bei $online wirklich raus kommt.

Gruß

[vlamers]

Hi,

mein solarlog sagt bei der Abfrage immer false. (auch im Terminal).
Da sich der Wert in der base_vars.js nicht ändert.
Da steht immer var isOnline=false.

Was genau möchtest du vom Solarlog wissen? Vermute ob die WR online sind? Oder nur ob der SL online ist?

Wenn die Module, wäre es leichter den Wert aus der min_days mit 0 zu vergleichen... (und nebenbei ein rrd zu füllen)

Gruß

Edit:
nebenbei sind die Abfragezeiten sehr lang ( >1,2 sek bei mir??) warum holst du die Daten nicht per cron ins tmp Verzeichniss, und diese dann im Plugin zerlegen. So mache ich das. Laufzeit des Plugins ca 0,1sek.

[kleinklausi]

Deine Anführungsstriche rund um curl... sehen komisch aus.

Hm, naja - das sind so Anführungsstriche, die in Perl einen Systemaufruf ausführen. Also eine Abkürzung für system(). Von daher sind die schon ok.

Beim nachdimmen plugin war das halt date aus der Shell. Da das nachher aber durch localtime() in Perl ersetzt wurde, war das dann ja hinfällig.

Oder verstehe ich Dich falsch?

Gruß Moritz

[JuMi2006]

Schon richtig verstanden und ich hab wieder was über Perl gelernt ... aber was gibt denn $online nun aus ?

Gruß Mirko

[kleinklausi]

mein solarlog sagt bei der Abfrage immer false. (auch im Terminal).
Da sich der Wert in der base_vars.js nicht ändert.
Da steht immer var isOnline=false.

Bei mir kommt da verlässlich true oder bei Dunkelheit false

Was genau möchtest du vom Solarlog wissen? Vermute ob die WR online sind? Oder nur ob der SL online ist?
Wenn die Module, wäre es leichter den Wert aus der min_days mit 0 zu vergleichen... (und nebenbei ein rrd zu füllen)

An sich will ich wissen ob die Wechselrichter online sind, ja. min_days.js gibt es bei nicht. Du meinst min_days.js, oder? Ok, da könnte ich in der ersten Zeile nach der 0 schauen.

nebenbei sind die Abfragezeiten sehr lang ( >1,2 sek bei mir??) warum holst du die Daten nicht per cron ins tmp Verzeichniss, und diese dann im Plugin zerlegen. So mache ich das. Laufzeit des Plugins ca 0,1sek.

Ich hatte gehofft, dass es ganz simpel geht. Ich werde wohl doch auf ein "umständlicheren" Weg zurückgreifen müssen.
Bisher hat das Plugin unter 1 Sekunde gebraucht - jedenfalls wenn der SL nicht Nachts den HTTP Server abgeschossen hat.

[kleinklausi]

... aber was gibt denn $online nun aus ?

$online ist true.

moi@vdr:~/src$ perl perl_test.pl 
is not online: true

Ich blicks nicht...

[JuMi2006]

Hmm sieht ja alles richtig aus ... steckt im true vielleicht noch nen Zeilenumbruch (mit "chomp $online" entfernen) dass er deswegen daran vorbei läuft ... komisch

[kleinklausi]

Gute Idee finde ich.

Wen ich chomp $online; einfüge blicke ich das Ergebnis aber erst recht nicht mehr:

moi@vdr:~/src$ perl perl_test.pl 
moi@vdr:~/src$ true

der verschluckt jetzt alle Zeilenumbrüche...

[kleinklausi]

ok, ich hab beim print am Ende noch \n Zeilenumbrüche eingefügt. Leider das gleiche Ergebnis:

moi@vdr:~/src$ perl perl_test.pl 
is not online: true
moi@vdr:~/src$

[JuMi2006]

Und wenn Du "true" vorher nochmal in eine variable $test legst und dann $online per eq mit $test vergleichst ? Ich hab grad nix zum testen hier.