suchen/ersetzen in Schleife

[MudGuard]

Hi,

for (my $i = 0; $i < $read; $i++) {
my $anrede = main::qform(ssp::get_var_db ("anrede",$i));
my $name = main::qform(ssp::get_var_db ("name",$i));

$kdmailtext =~ s/-ANREDE-/$anrede/g;
$kdmailtext =~ s/-NAME-/$name/g;

Ab dem ersten Schleifendurchlauf ist in $kdmailtext weder "-ANREDE-" noch "-NAME-" vorhanden, die sind ja durch die konkreten Werte ersetzt.

Beim zweiten/dritten/... Schleifendurchlauf gibt es in $kdmailtext also nichts mehr, was durch die neuen Werte ersetzt werden könnte.

Du müßtest am Schleifenanfang den $kdmailtext wieder auf den ursprünglichen Wert (den $kdmailtext vor der Schleife hatte) zurücksetzen.

cu,
Andreas