Hilfe bei einem regulären Ausdruck

[TomLee]

Hallo,

mir gibt ein get Unifi voucherList 7d1x folgendes zurück:

Code Auswählen Erweitern


==================================================================
code = 4471539270
duration = 10080
note = 7d1x
quota = 1
status = VALID_ONE
status_expires = 0
used = 0
==================================================================
code = 5935744848
duration = 10080
note = 7d1x
quota = 1
status = VALID_ONE
status_expires = 0
used = 0
==================================================================
Count: 2

Es gibt ein Reading -AP_Wohnzimmer_essid mit dem Inhalt:

Code Auswählen Erweitern


FBF,Gast1,FBF,Gast1

Ein userreadings :

Code Auswählen Erweitern

voucher_7d1x:-VC_7d1x:.* {my @ar = (fhem("get Unifi voucherList 7d1x") =~ m,code.=.([0-9]{10}),g);
my @array = split(",",ReadingsVal("Unifi","-AP_Wohnzimmer_essid","unknown"));
unshift(@ar,$array[1]);my $ar = join(',',@ar)}

macht mir daraus diese Liste:

Code Auswählen Erweitern


Gast1,4471539270,5935744848

Ich hätte gerne in der Liste noch einmal den Wert von duration aus dem get von oben.

Mit dem regex

Code Auswählen Erweitern

code.=.([0-9]{10})|duration.=.([0-9]{5})
passt das mehr oder weniger auch auf regex101.

Es gibt 4 Matches mit jeweils einer Group.

Warum macht mir aber mein Code (im ersten Schritt)

Code Auswählen Erweitern

{my @ar = (fhem("get Unifi voucherList 7d1x") =~ m,code.=.([0-9]{10})|duration.=.([0-9]{5}),g);;my $ar = join(',',@ar)}

das hier daraus :

Code Auswählen Erweitern


4471539270,,,10080,5935744848,,,10080

?

Weitere Frage wäre ob man mit einem Ausduck auch veranlassen kann doppelte Matches zu einem Match zusammenzufassen ?
Also dann 3 Matches mit je einer Group zu erhalten.
Mit dem Ergebnis:

Code Auswählen Erweitern

code = 1687752668
duration = 30240
code = 1319214911

Weitere Frage:

Code Auswählen Erweitern


{my @ar = (fhem("get Unifi voucherList 7d1x") =~ m,code.=.([0-9]{10}),g);;my $ar = join(',',@ar)}

gibt

Code Auswählen Erweitern

4471539270,5935744848
zurück.

Warum kann ich hier

Code Auswählen Erweitern

{my @ar = (fhem("get Unifi voucherList 7d1x") =~ m,code.=.([0-9]{10}),g);;$1}
mit der Ersatzsequenz $n nur auf $1 zugreifen ? $0 gibt fhem.pl zurück,$2 einfach nix, auch nicht im Log.

Gruß

Thomas

[crusader]

Code Auswählen Erweitern

code.=.([0-9]{10})|duration.=.([0-9]{5})

Das Ergebnis dürfte wohl von der jeweiligen Perl-Version abhängen. Bei mir bekomme ich da gar keinen Match.
Eindeutiger wäre:

Code Auswählen Erweitern

(?s)code.=.([0-9]{10}).*?duration.=.([0-9]{5})

Da bekomme ich vier Matches, die man dann auch per join verbinden kann.
Die $n-Variablen laufen bei mir auch nicht über multiple-Matches. Es werden also nur fortlaufende $n-Variablen befüllt bei separaten Capture-Groups, nicht bei multiplen Matches einer Capture-Group.

Die fangen übrigens bei $1 an.
$0 ist der Programm-Name.

[TomLee]

Code Auswählen Erweitern

Da bekomme ich vier Matches, die man dann auch per join verbinden kann.

Danke. Danke.

Hab mit regex gar nix am Hut, passt erstmal besser wie das was ich mir zusammengereimt habe.

Die Frage die ich mir halt stelle ob drei Matches auch mit regex möglich wären, brauch die duration ja nur einmal.

Code Auswählen Erweitern

code = 1687752668
duration = 30240
code = 1319214911

[crusader]

Innerhalb des Regex-Ausdrucks sicher nicht.

Aber warum dann überhaupt die Trickserei mit gemeinsamem Capture von 'Code' und 'Duration' ?

Mach daraus doch zwei Variablen:

Code Auswählen Erweitern

m/code.=.([0-9]{10})/g
enthält alle Codes und

Code Auswählen Erweitern

m/duration.=.([0-9]{5})/
enthält die erste Duration.
Danach beide mit join zusammenführen.

[TomLee]

Code Auswählen Erweitern

Mach daraus doch zwei Variablen:
Danach beide mit join zusammenführen.

Ja, klar.

Das ist mehr oder weniger mein Ausgangspunkt, mein Gedanke war das ist ein Umweg.

[crusader]

Ja gut.

Wenn Du nur einmal matchen willst, musst Du halt mit dem join-Ausdruck für das erhaltene Array arbeiten:

Code Auswählen Erweitern

join ',',@ar[grep !($_ % 2), 0..$#ar],@ar[1]
enthält alle Codes und am Ende die erste Duration.

[TomLee]

Wow, Wow, du Fuchs du.

Ich will das verstehen, soweit bin ich aber noch nicht.

Erschwerend für mich, du nimmst irgendwie glaub ich von allem die kurze Variante ohne Klammern.
Kannst du bitte in kurzen Worten erläutern was ab hier

Code Auswählen Erweitern

@ar[grep !($_ % 2), 0..$#ar] genau passiert oder verständliche Doku nennen an der ich mir das ableite, es ist mir trotz Code unklar was genau passiert
grep ist irgendwie schon klar, was macht das Prozenzeichen warum 2, # hab ich glaub ich noch nie gelesen.
Ich muss mich dazu mehr einlesen um das zu verstehen.


Da ist ein Denkfehler drin, denk ich, es sollte genau andersrum sein

Code Auswählen Erweitern

{my @ar = (fhem("get Unifi voucherList 7d1x") =~ m,(?s)code.=.([0-9]{10}).*?duration.=.([0-9]{5}),g);
my @array = split(",",ReadingsVal("Unifi","-AP_Wohnzimmer_essid","unknown"));
unshift(@ar,$array[1]);join ',',@ar[grep !($_ % 2), 0..$#ar],@ar[1]}

ergibt jetzt

Code Auswählen Erweitern

Gast1,10080,10080,4471539270

[crusader]

$#ar ist der letzte Index des Arrays.
@ar[0..$#ar] ist ein neues Array, das mit den Elementen von 0 bis zum letzten Index befüllt wird. Die Laufvariable für diesen Prozess ist als $_ zugänglich.
Mit grep kann man die zulässigen Indizes filtern, in diesem Fall auf alle Werte, deren modulo2-Operation nicht null ist, also alle ungeraden.

Da ist ein Denkfehler drin, denk ich, es sollte genau andersrum sein.

Na ja, weil Du vorher schon den Gast ins Array geschoben hast.
Machs doch gleich in einem Schwung:

Code Auswählen Erweitern

join ',',$array[1],@ar[grep !($_ % 2), 0..$#ar],@ar[1]

[TomLee]

Es gab noch die Warnung hier:

Code Auswählen Erweitern

2020.08.26 13:21:10 1: PERL WARNING: Scalar value @ar[1] better written as $ar[1] at (eval 1479406) line 3.
2020.08.26 13:21:10 3: eval: {my @ar = (fhem("get Unifi voucherList 7d1x") =~ m,(?s)code.=.([0-9]{10}).*?duration.=.([0-9]{5}),g);
my @array = split(",",ReadingsVal("Unifi","-AP_Wohnzimmer_essid","unknown"));
join ',',$array[1],@ar[1]/1440,@ar[grep !($_ % 2), 0..$#ar]}

Hab ich gemacht und sie ist jetzt weg.