Ich habe zwei userReadings definiert:
FAVSTR_FTUI {my $u=InternalVal($name,'FAVSTR','');my @sender =split(/,+/,$u);my @favSort = sort(@sender);my $u = join(":",@favSort);return($u)},
FAVSTR_ALIAS {my $v=InternalVal($name,'FAVSTR','');my @alias =split(/,+/,$v);my @favSort = sort(@alias);my $v = join(":",@favSort);$v =~ s/_/ /g; return($v)},
Dabei ist FAVSTR
ANTENNE_BAYERN_Oldies_but_Goldies,Heart_Beat_Radio_Memory_Hits,WDR2_Aachen_und_Region,1LIVE_Das_junge_Radio_des_WDR,Schwany_Instrumental,Bear_Family_Radio,WDR5_-_Hoeren_erleben,WDR4_-_Melodien_fuer_ein_gutes_Gefuehl,Schwany_6er_Hitradio,WDR3_-_Lust_am_Hoeren
Jetzt bekomme ich des Log alla 5 Sekunden zugeballert mit den Meldungen:
2016.05.29 14:33:31 3: eval: {my $v=InternalVal($name,'FAVSTR','');my @alias =split(/,+/,$v);my @favSort = sort(@alias);my $v = join(":",@favSort);$v =~ s/_/ /g; return($v)}
2016.05.29 14:33:31 1: PERL WARNING: "my" variable $v masks earlier declaration in same scope at (eval 95526) line 1.
2016.05.29 14:33:31 3: eval: {my $u=InternalVal($name,'FAVSTR','');my @sender =split(/,+/,$u);my @favSort = sort(@sender);my $u = join(":",@favSort);return($u)}
2016.05.29 14:33:31 1: PERL WARNING: "my" variable $u masks earlier declaration in same scope at (eval 95525) line 1.
Ich finde keinen Fehler (was nicht heißen soll, dass keiner da ist) ;) . Was mache ich falsch?
Gruß Eberhard
Zitat von: FHEm2005 am 29 Mai 2016, 14:37:31
Ich finde keinen Fehler (was nicht heißen soll, dass keiner da ist)
Die Fehlermeldung ist doch eindeutig. Und doch, da ist ein Fehler.
In FAVSTR_ALIAS definierst Du zweimal $v mit my davor. Beim zweiten Mal musst Du das my weglassen, weil es die Variable ja schon gibt.
Hallo Betateilchen,
da schaue ich x-mal hin und finde den Fehler nicht der so offensichtlich ist.
Vielen 1000 Dank
Gruß Eberhard