suchen/ersetzen in Schleife

[hotti]

Hallo,

Der Mailtext ($kdmailtext) wird aus einer .cfg Datei ausgelesen, die mail-Adresse, Anrede, Name usw. aus der DB.
Im Mailtext sollen jetzt -ANREDE- und -NAME- durch die Variablen aus der DB ersetzt werden.

Ich würde das so machen:

  
package Letter;  
  
sub new{  
 my $class = shift;  
 my $vars  = shift;  
  
 my $letter = qq(  
  $vars->{Anrede},  
  
  $vars->{Text}  
  
  Mit freundlichen Grüßen  
  ...  
 );  
  
 return bless {LETTER => $letter}, $class;  
}  
  
my $let = Letter->new({Anrede => $anrede, Text => $text});  
$let->send(); # Funktion ist noch zu schreiben  
  

Schöne Pfingsten,
Horst Heiligengeist