Zeichenkette ersetzen

[oldscout]

Hallo,
folgender Code funktioniert nicht mehr, ich erhalte dann folgenden Fehler:
Auszug:

Code Auswählen Erweitern


my @liste = fhem("list db_g8b.*");
@liste =~ s/\n/,/g;


Fehlermeldung beim Speichern dann:

Code Auswählen Erweitern


Can't modify private array in substitution (s///) at ./FHEM/99_MyDBRepUtils.pm line 108, near "s/\n/,/g;"


Das lief eigentlich schon ewig so, habe auch nix daran geändert und finde das Problem nicht.

Kann mir jemand weiterhelfen?
Es soll nur das "\n" durch ein Komma ersetzt werden.

Danke schön.

[Beta-User]

Falscher Forenbereich (*** Keine Fragethemen starten! Board ist nur für funktionsfähigen Code! ***):

In diesem Board bitte keine Themen mit Fragen starten, sondern ausschließlich funktionsfähige Codeschnipsel posten.

Ansonsten als Anschubser für die Kommandozeile:

Code Auswählen Erweitern

{ join q{,}, devspec2array(".*") }

[DeeSPe]

Benutze einfach:

Code Auswählen Erweitern

my @liste = devspec2array("db_g8b.*");
Dann hast Du ein Array mit allen passenden Namen und hast auch keine Zeilenumbrüche drin.
Ein Ersetzen geht eigentlich auch nur im Scalar und nicht im Array. Warum das bisher so gegangen sein soll erschliesst sich mir nicht.

Gruß
Dan

[oldscout]

Danke für die Tips. Nun geht es, habe es mit DeeSPe's Hinweis umgesetzt.


Bitte ins richtige Forum verschieben?!?

[Beta-User]

Bitte ins richtige Forum verschieben?!?

Das kannst du selbst (unter dem ersten Beitrag unten links ist ein Knopf dafür). Und im Anfängerbereich angepinnt findest du auch die Anleitung, wie du das auf [gelöst] setzt .

Und hier noch zur Ergänzung der Weg, um das direkt in einen SCALAR zu packen (was eigentlich beabsichtigt zu sein scheint):

Code Auswählen Erweitern

my $liste = join q{,}, devspec2array("db_g8b.*");