Wie klappt das mit exists ?

[TomLee]

Hallo,

kann mir bitte wer sagen wie ich das mit $sk in dem exists mache, bekomme diese Fehlermeldung

Code Auswählen Erweitern

Error evaluating du_Testy userReading filter3: Global symbol "%sk" requires explicit package name (did you forget to declare "my %sk"?) at (eval 1103) line 5.
syntax error at (eval 1103) line 5, near ") return"

exists hab ich gelesen soll true zurückgeben wenn wahr, das ist auch das was ich später brauche, aber wie lasse ich mir hier jetzt mit return dann eine 1 ausgeben.

Code Auswählen Erweitern

{
my $sk="test,apfel,doris";;
if(!exists($sk{'test'})) return 1;;}


Gruß

Thomas

[CoolTux]

Das passt vorn und hinten nicht.
Was soll sk sein. Ein Array, ein Hash oder ein Skalar?

[herrmannj]

sorry aber das ist kompletter Murks. Perl basics sind im Netz weit verfügbar. "exists" funktioniert mit einem hash.

https://perldoc.perl.org/functions/exists.html
https://www.perl.com/article/27/2013/6/16/Perl-hash-basics-create-update-loop-delete-and-sort/

[TomLee]

OK, war beim stöbern zufällig auf exists gestossen bin, ich gestehe das ich  mich wenig zuvor mit beschäftigt,

Eigentlich bekomme ich mit FileRead aus einer Datei die einen JSON beinhaltet ein Array zurück.

So sieht das eigentlich aus und hatte gedacht ich könnte jetzt mit exists einfach nach einem Text in $sk suchen.

Code Auswählen Erweitern

{ my ($error, @content) = FileRead({FileName=> "/irgendwas.txt", ForceType => "file" });;
my $sk=join(" ",@content);;
return $sk
}

Dann anders: Gibt es auch eine Funktion mit der man die Elemente eines Arrays nach einem String durchsuchen kann ?

Oder bleibt nur mit regexp $sk durchsuchen ?

[Otto123]

Hi,

Kurzform für die FHEM Kommandozeile zum testen

liefert 1

Code Auswählen Erweitern

{grep (/doris/,("test","apfel","doris"))}
liefert 0

Code Auswählen Erweitern

{grep (/willi/,("test","apfel","doris"))}

gruß Otto

[TomLee]

 Hat aber einen Nachteil, hier jetzt aber unrelevant.

Code Auswählen Erweitern

{grep (/dori/,("test","apfel","doris"))}

liefert auch 1.

trotzdem Danke.

[CoolTux]

Ein Array nach einem bestimmten Element kannst du mit einer Schleife durchsuchen.

[TomLee]

Aha, es gibt optionale Parameter

Code Auswählen Erweitern

{grep -o (/dori/,("test","apfel","doris"))}

liefert 0

edit:

Code Auswählen Erweitern

{grep -o (/doris/,("test","apfel","doris"))}

aber auch

[Otto123]

Naja ist halt regEx - dass muss man richtig machen 
https://regex101.com/

Code Auswählen Erweitern

{grep (/^dori$/,("test","apfel","doris"))}

Code Auswählen Erweitern

{grep (/^doris$/,("test","apfel","doris"))}

Ich weiß ja nicht genau was Du willst

Entspricht aber m.M.n. deinem ursprünglichem Ansatz von exists

[TomLee]

Bin einfach zu doof.

Hier steht zu:

Code Auswählen Erweitern

{ my @a=(1,2,3,4,5,6,7,8,9,10,11,12,13);;  return grep {$_<10 && $_>5;} @a}

Es wird ein Array mit den Elementen 1 - 13 angelegt und per grep werden alle Elemente größer 5 und kleiner 10 ausgegeben.
Ausgabe daher:
6789

Wenn ich das in der Befehlszeile eingebe bekomme ich immer die Anzahl, wie bekomme ich die Elemente selbst ?

[Otto123]

Du modifizierst ja die Quelle, pack das wie dort beschrieben in eine Datei und führe die mit perl dateiname aus, dann funktioniert das auch.
Oder nimm wie in der Quelle zum testen print und schau ins Logfile 

Code Auswählen Erweitern

{ my @a=(1,2,3,4,5,6,7,8,9,10,11,12,13);;  print grep {$_<10 && $_>5} @a}