[Thread Prev][Thread Next]   >Date Index >Thread Index

Perl regex + Send::Mailer

Stefan Bauer - Sat Nov 03 11:43:24 2007

Hallo Liste,

ich verwende Send::Mailer zum Versand von E-Mails. Hierzu sammle ich die
Empfänger in einer Textdatei auf, füge den localpart zur E-Mail Adresse
hinzu, trenne die Empfänger mit Komma und übergebe diesen String an
Send::Mailer als Empfänger. Problem hierbei ist, dass mein String am Ende
ein weiteres Komma beinhaltet, welches ich nicht benötige.

Wie meistere ich das am einfachsten?

Hier meine Zeilen:

open ADMINS, "$admins";
my @admins = <ADMINS>;
foreach (@admins) {
chomp;
s#\w+#$&\@localhost, #s;
my $adminadressen .= $_;
}

Jetzt enthällt my $adminadressen benutzer1@localhost, benutzer2@localhost,
benutzer3@localhost,

das abschließende Komma würde ich gern entfernen. Leidere scheitere ich an
dem passenden regulären Ausdruck.

Danke im Voraus

Gruß

stefan


Next: