Werte ins Logfile Schreiben?

[Guest]

Originally posted by: <email address deleted>

Nachdem ich jetzt verschiedenste Code-Schippsel durchgelesen und lerne
parallel noch Perl.

Dennoch bekomme ich es nicht hin, das ich Variablenwerte ins Log schreiben
kann. Was mach ich falsch?
Hab sicher schon zwanzig verschiedene Schreibweisen ausprobiert, aber
bekomme immer nur ".... 2012.08.05 19:17:44 1: Humidity in Ralfs
BueroHASH(0x9d10b0) "

VG
Ralf


sub
TestProgramm()
 {
 {Log 1, "TestProg Entry"};
 my $hum = {ReadingsVal("Buero_Ralf","humidity","0")};
 {Log 1, "Humidity in Ralfs Buero".("$hum")};
 if ($hum > 60) {
     {Log 1, "Hum > 60"};
    }
 #{fhem ("set Buero_Ralf desired-temp 18.0 day-temp 18.5 night-temp 17.0")}
}

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Hallo,

Die Ausgabe HASH(0x9d10b0) ist eine hash reference.


http://perldoc.perl.org/perlref.html

In perl kann man mittels
Data::Dumper diese Strukturen recht schön ausgeben

Ich bin noch etwas
neu beim FHEM, daher kann es sein das die Syntax noch

nicht so passt.


Versuch mal bitte folgendes und schreib uns was im log als Ausgabe
steht.

{use Data::Dumper;; Log 1, "Humidity in Ralfs Buero
>>".Dumper($hum)};

LG

Aleks

On 05-08-2012 20:19, dougie@m1n1.de
wrote:

> Nachdem ich jetzt verschiedenste Code-Schippsel durchgelesen
und lerne parallel noch Perl.
> Dennoch bekomme ich es nicht hin, das
ich Variablenwerte ins Log schreiben kann. Was mach ich falsch?
> Hab
sicher schon zwanzig verschiedene Schreibweisen ausprobiert, aber
bekomme immer nur ".... 2012.08.05 19:17:44 1: Humidity in Ralfs
BueroHASH(0x9d10b0) "
> VG
> Ralf
> sub
> TestProgramm()
> {
> {Log
1, "TestProg Entry"};
> my $hum =
{ReadingsVal("Buero_Ralf","humidity","0")};
> {Log 1, "Humidity in
Ralfs Buero".("$hum")};
> if ($hum > 60) {
> {Log 1, "Hum > 60"};
> }

> #{fhem ("set Buero_Ralf desired-temp 18.0 day-temp 18.5 night-temp
17.0")}
> }
>
> --
> To unsubscribe from this group, send email to
>
fhem-users+unsubscribe@googlegroups.com
 

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Interessant! Danke für den Tipp!
>
>  
Das hier ist die Ausgabe im Log (aus der ich auch nicht so ganz schlau
werde  ) ...obwohl: der Wert 73 kommt ja irgendwie an...

2012.08.06 08:40:46 1: TestProg Entry
2012.08.06 08:40:46 1: Humidity in Ralfs BueroHASH(0xd2feb8)
2012.08.06 08:40:46 1: Humidity in Ralfs Buero >>$VAR1 = {
          '73' => undef
        };

2012.08.06 08:40:46 1: Hum > 60

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Hallo,

versuch mal '{' && '}' weg zu nehmen.

von

my $hum =
{ReadingsVal("Buero_Ralf","humidity","0")};

auf

my $hum =
ReadingsVal("Buero_Ralf","humidity","0");

LG

Aleks

On 06-08-2012
08:43, dougie@m1n1.de wrote:

> Interessant! Danke für den Tipp!
> Das
hier ist die Ausgabe im Log (aus der ich auch nicht so ganz schlau werde
) ...obwohl: der Wert 73 kommt ja irgendwie an...
>
> 2012.08.06
08:40:46 1: TestProg Entry
> 2012.08.06 08:40:46 1: Humidity in Ralfs
BueroHASH(0xd2feb8)
> 2012.08.06 08:40:46 1: Humidity in Ralfs Buero
>>$VAR1 = {
> '73' => undef
> };
> 2012.08.06 08:40:46 1: Hum > 60
>

> --
> To unsubscribe from this group, send email to
>
fhem-users+unsubscribe@googlegroups.com
 

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

BINGO!
Das war's! Danke schön!

Log Ausgabe sieht jetzt so aus:

2012.08.06 15:33:36 1: TestProg Entry
2012.08.06 15:33:36 1: Humidity in Ralfs Buero59
2012.08.06 15:33:36 1: Humidity in Ralfs Buero >>$VAR1 = '59';

Also alles perfekt! Was hab ich falsch gemacht?

VG
Ralf


--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Hallo,

du hast perl angewiesen eine Hashreferenze zurück zu geben.


http://www.perl.org/books/beginning-perl/ => Chapter 3: Lists and
Hashes

http://blob.perl.org/books/beginning-perl/3145_Chap03.pdf

=>
Working with Hash Values

LG

Aleks

On 06-08-2012 15:36,
dougie@m1n1.de wrote:

> BINGO!
> Das war's! Danke schön!
> Log
Ausgabe sieht jetzt so aus:
>
> 2012.08.06 15:33:36 1: TestProg Entry

> 2012.08.06 15:33:36 1: Humidity in Ralfs Buero59
> 2012.08.06
15:33:36 1: Humidity in Ralfs Buero >>$VAR1 = '59';
> Also alles
perfekt! Was hab ich falsch gemacht?
> VG
> Ralf
>
> --
> To
unsubscribe from this group, send email to
>
fhem-users+unsubscribe@googlegroups.com
 

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com