Nachrichten zusammen senden

[TWART016]

Hallo,

ich möchte mir regelmäßig bestimmte Events gesammelt schicken lassen. Dafür habe ich in einem Sub erstellt.

Code Auswählen Erweitern

sub Telegram_test {
my $countiesName;
my @macArray = ("_name");
my $hash = $defs{"coronaSpreadCounties"};

while (($countiesName) = each($hash->{READINGS})){
if ($countiesName =~ '_name') {
if (!(grep { $_ =~ /$countiesName/ } @macArray)){
my $countiesID=(split("_",$countiesName))[0];;
my $countiesName_Val = ReadingsVal("coronaSpreadCounties",$countiesName,"");;

my $Reading7cases = $countiesID."_cases7_per_100k";;
my $cases7_Val = ReadingsVal("coronaSpreadCounties",$Reading7cases,"");;

my $cases7_Val_short = sprintf("%.3f",$cases7_Val);;
       $cases7_Val_short =~ s/\./,/g;;

my $ReadingNamePercentage = $Reading7cases."_Percentage";;
my $Percentage_Val = ReadingsVal("coronaSpreadCounties",$ReadingNamePercentage,"");;

fhem("set Telegram msg $countiesName_Val: $cases7_Val_short \n$Percentage_Val");;
}
}
}

}

Es werden die benötigten Readings eingeholt und für jeden durchlauf ein Event erstellt.

Wie bekomme ich es hin, dass am Ende alle zusammen in einer Message versendet werden?

Das wäre der Output von einem durchlauf:

Code Auswählen Erweitern

SK Stuttgart: 71,551
+4,598