Perl Zeichenkette in Zeichenkette einsetzten

[EnderPhilipp]

Hi Liebe FHEM-Community, 

ich habe den Mensaplan meiner Schule per HTTPMOD in FHEM integriert. (Danke JoWiemann)

In "Rohform" sehen die Readings so aus:

Code Auswählen Erweitern

Nudelauflauf mit Tomaten und Käse überbacken | Chinakohlsalat | Apfelmus | G A1

Das habe ich zu dem hier verbessert:

Code Auswählen Erweitern

Nudelauflauf mit Tomaten und Käse überbacken | Chinakohlsalat | und als Nachtisch Apfelmus

Jetzt würde ich gerne, dass das am Ende so aussieht:

Code Auswählen Erweitern

Nudelauflauf mit Tomaten und Käse überbacken | mit Chinakohlsalat | und als Nachtisch Apfelmus

Das würde ich selber wahrscheinlich auch hinkriegen, aber manchmal steht da schon in der "Rohform" ein mit:

Code Auswählen Erweitern

Klopse "Königsberger Art" | mit Kartoffelpüree und Karotten in Butter | Himbeerjoghurt | G A1 C


Deshalb meine Frage:
Wie kann ich prüfen, ob hinter den ersten 5 Zeichen nach dem ersten | schon ein mit oder ein und steht ?

Mfg
Philipp 

[betateilchen]

Wie kann ich prüfen, ob hinter den ersten 5 Zeichen nach dem ersten | schon ein mit oder ein und steht ?

Zerlege die Zeichenkette an den | in ihre Bestandteile,

Code Auswählen Erweitern


my @m = split("|",<text>);


Entferne per regexp die gewünschten Teile (egal ob sie vorhanden sind oder nicht)

Code Auswählen Erweitern


$m[1] =~ s/^mit//i;
$m[1] =~ s/^und//i;


Danach hast Du einen klar definierten Zustand:

Code Auswählen Erweitern


[0] = Klopse Königsberger Art
[1] = Kartoffelpüree und Karotten in Butter
[2] = Himbeerjoghurt (igitt)
[3] = G A1 C


und kannst den kompletten String einfach wieder so zusammensetzen, wie Du ihn brauchst.

Code Auswählen Erweitern


return "$m[0] mit $m[1] und als Nachtisch $m[2] | $m[3]";


Hoffe, das Prinzip ist klargeworden.

(ich weiß, dass es auch noch einfacher geht, aber das wäre schwieriger, es verständlich zu erklären)

[EnderPhilipp]

Danke, werde ich später mal testen.

Nur eine kleine Frage zu

Code Auswählen Erweitern

$menue[1] =~ s/^mit//i;

Woher "weiß" die Suchfunktion wo sie suchen muss ?

Und warum wird das "und" zwischen Kartoffelpüree und Karotten nicht ersetzt?


Mit freundlichen Grüßen
Philipp

[betateilchen]

Woher "weiß" die Suchfunktion wo sie suchen muss ?

weil da $m[1] steht (das "$menue" war ein tippfehler von mir)

Und warum wird das "und" zwischen Kartoffelpüree und Karotten nicht ersetzt?

weil die regexp mit ^ angegeben ist, was bedeutet "wenn am Anfang 'mit' steht".


Weitere Infos zu regular expressions findest Du massenhaft im Internet.

[EnderPhilipp]

Mein jetziger Code

Code Auswählen Erweitern

my $mensamorgen = ReadingsVal("Mensa", "Donnerstag", "");
my @m = split("|",<text>);
$m[1] =~ s/^mit//i;
$m[1] =~ s/^und//i;
my $tomorrow = "$m[0] mit $m[1] und als Nachtisch $m[2] | $m[3]";
fhem("setreading Mensa Morgen $tomorrow");

Als Ergebnis kommt:

Code Auswählen Erweitern


mit und als Nachtisch |

Wie kann ich split() "sagen", dass es $mensamorgen zerteilen soll ?

Mfg
Philipp

[DeeSPe]

Mein jetziger Code

Code Auswählen Erweitern

my $mensamorgen = ReadingsVal("Mensa", "Donnerstag", "");
my @m = split("|",<text>);
$m[1] =~ s/^mit//i;
$m[1] =~ s/^und//i;
my $tomorrow = "$m[0] mit $m[1] und als Nachtisch $m[2] | $m[3]";
fhem("setreading Mensa Morgen $tomorrow");

Als Ergebnis kommt:

Code Auswählen Erweitern


mit und als Nachtisch |

Wie kann ich split() "sagen", dass es $mensamorgen zerteilen soll ?

Mfg
Philipp

So wie man split immer benutzt:

Code Auswählen Erweitern

my @m = split("|",$mensamorgen);

Dieses Beispiel und ebenso Regex sind Grundlagen die man lernen sollte wenn man programmieren möchte.
Das wird mind. 1000x im Internet erklärt und benötigt m.E. hier keine erneute Erklärung.

Gruß
Dan
Gruß
Dan

[EnderPhilipp]

So wie man split immer benutzt:

Code Auswählen Erweitern

my @m = split("|",$mensamorgen);
...

Das hatte ich schon probiert, nur dann kam das:
   
K mit l und als Nachtisch o | p

[DeeSPe]

Das hatte ich schon probiert, nur dann kam das:
   
K mit l und als Nachtisch o | p

Ich hatte bei split mit | auch schon Probleme. Könnte daran liegen dass es evtl. ein geschütztes Zeichen ist und escaped werden muss.

Probiere mal mit escapen:

Code Auswählen Erweitern

my $mensamorgen = ReadingsVal("Mensa", "Donnerstag", "");
my @m = split("\|",$mensamorgen);

Wenn das nicht geht mache es so:

Code Auswählen Erweitern

my $mensamorgen = ReadingsVal("Mensa", "Donnerstag", "");
$mensamorgen =~ s/\|/;/g;
my @m = split(";",$mensamorgen);

Gruß
Dan

[betateilchen]

Ich wollte ja eigentlich nur ein PRINZIP beschreiben und keinen funktionsfähigen Code für copy&paste.
Ein bisschen Nachdenken und "Wissen aneignen" erwarte ich von jedem Benutzer.

[betateilchen]

Code Auswählen Erweitern


sub test() {
  my $mensamorgen = 'Klopse "Königsberger Art" | mit Kartoffelpüree und Karotten in Butter | Himbeerjoghurt | G A1 C';
  $mensamorgen =~ s/\s\|\s/\|/g;
  my @m = split(/\|/,$mensamorgen);
  $m[1] =~ s/^mit//i;
  $m[1] =~ s/^und//i;
  $m[2] =~ s/^mit//i;
  $m[2] =~ s/^und//i;
  $mensamorgen = "$m[0] mit $m[1] und als Nachtisch $m[2] | $m[3]";
  fhem("setreading Mensa Morgen $mensamorgen");
  return $mensamorgen;
}


liefert als Ergebnis - siehe Anhang.

[EnderPhilipp]

Code Auswählen Erweitern


sub test() {
  my $mensamorgen = 'Klopse "Königsberger Art" | mit Kartoffelpüree und Karotten in Butter | Himbeerjoghurt | G A1 C';
  $mensamorgen =~ s/\s\|\s/\|/g;
  my @m = split(/\|/,$mensamorgen);
  $m[1] =~ s/^mit//i;
  $m[1] =~ s/^und//i;
  $m[2] =~ s/^mit//i;
  $m[2] =~ s/^und//i;
  $mensamorgen = "$m[0] mit $m[1] und als Nachtisch $m[2] | $m[3]";
  fhem("setreading Mensa Morgen $mensamorgen");
  return $mensamorgen;
}


liefert als Ergebnis - siehe Anhang.

Danke, damit geht es.
Nur eine kleine "Abschlußfrage" wegen den Wochentagen:

Wie bekomme mache den Wert einer Variable aus einer if Abfrage in der ganzer Subroutine verfügbar ?

Mfg
Philipp

[dev0]

https://perlmaven.com/scope-of-variables-in-perl

[CoolTux]

Wenn man am | splitten will dann am besten \\| bei split nehmen. Hatte ich bis jetzt den besten Erfolg.

[betateilchen]

Wenn man am | splitten will dann am besten \\| bei split nehmen. Hatte ich bis jetzt den besten Erfolg.

Man will aber nicht am "|" splitten, sondern am " | ", da sind nämlich noch Leerzeichen drumrum, die man erstmal weghaben will. Sonst gibt es im Ergebnis (mindestens) doppelte Leerzeichen.

[CoolTux]

Ah. Wie immer steckt der Teufel im Detail.