[gelöst] Perl -> 99_myUtils.pm -> Variablen exportieren -> our

[GaiusMarius]

Hallo allerseits, meine Perl-Kenntnisse reichen nicht aus, um mir meine Frage selbst beantworten zu können:

Habe ich in der 99_myUtils.pm zu exportierende, also dann z. B. in den Devices zur Verfügung stehende, Variablen richtig/schön programmiert?

99_myUtils.pm:

Code Auswählen Erweitern

package main;
use strict;
use warnings;
sub myUtils_Initialize($$) {my ($hash) = @_;}

our $ichBinDieVariableUmDieEsGeht = 'Inhalt';

In dem Device steht dann z.B.:

Code Auswählen Erweitern

attr DEVICE stateFormat {$main::ichBinDieVariableUmDieEsGeht}

Nach etlichen gescheiterten Versuchen habe ich meinen Wunsch immerhin umgesetzt bekommen. 
In der (über Google zu findenden) Doku wird vom Gebrauch von our eher abgeraten; mMn. aber aus Perl-Kompatibilitätsgründen...

[betateilchen]

Warum schreibst Du Deine benötigten Daten nicht einfach in den %data Hash, der in FHEM systemweit zur Verfügung steht und genau für solche Zwecke vorgesehen ist?

Code Auswählen Erweitern

$data{ichBinDieVariableUmDieEsGeht} = 'Inhalt';

Dann kannst Du in Deinem gesamten FHEM mit dem "Namen"

Code Auswählen Erweitern

$data{ichBinDieVariableUmDieEsGeht}

darauf zugreifen.


--

[GaiusMarius]

Weil ich das bis eben nicht wusste! 
Ich probiere $data() gleich mal aus...

[betateilchen]

Ich probiere $data() gleich mal aus...

Das wird nicht funktionieren, du musst schon die Klammern verwenden, die ich in meinem Beispiel verwendet habe.

[GaiusMarius]

Sorry, falsch wiederholt; implementiert habe ich {} und alles funktioniert tadellos.