Opened by mika at 2011-02-02 22:49
User since
2010-10-02
168 Artikel
BenutzerIn
2010-10-02
168 Artikel
BenutzerIn
Hallo topeg
In get_adressen musste es my @config=shift; sein, nicht my $config=shift;. Aber das war sicher ein copy'n'past Fehler. sonst läuft es - Dankeschön!
Die Funktion chomp war mir neu und $_=split(/;/,$_) for(@db); liegt ja eigentlich auf der Hand...
Habe auch die Routine wie Mails verschickt werden geändert, get_addresses habe ich ganz entfernt und sende nun ja Datensatz eine Mail. So dass das To header-field nicht zu schnell eine Zeilenlänge sprengt...
Ich nutze nun auch wie von dir vorgeschlagen die Module aus CPAN zum auslesen der CSV und Konfiguration (
Config::General) Datei.
(Nur der Pfad zur Konfiguration muss im Code hinterlegt werden.)
Fehlt nur noch ein Template für die E-Mail, dann bin ich eigentlich zufrieden...
mika
Last edited: 2011-02-03 17:38:42 +0100 (CET)
In get_adressen musste es my @config=shift; sein, nicht my $config=shift;. Aber das war sicher ein copy'n'past Fehler. sonst läuft es - Dankeschön!
Die Funktion chomp war mir neu und $_=split(/;/,$_) for(@db); liegt ja eigentlich auf der Hand...
Habe auch die Routine wie Mails verschickt werden geändert, get_addresses habe ich ganz entfernt und sende nun ja Datensatz eine Mail. So dass das To header-field nicht zu schnell eine Zeilenlänge sprengt...
Ich nutze nun auch wie von dir vorgeschlagen die Module aus CPAN zum auslesen der CSV und Konfiguration (
Config::General) Datei.(Nur der Pfad zur Konfiguration muss im Code hinterlegt werden.)
Code (perl): (dl
)
1 2 3 4 5 6
my $config_file = new Config::General( -ConfigFile => "./config.txt" ); my %config = $config_file->getall(); my $config->{db}=load_db(\%config);
Fehlt nur noch ein Template für die E-Mail, dann bin ich eigentlich zufrieden...
mika
Last edited: 2011-02-03 17:38:42 +0100 (CET)