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

Re: Perl regex + Send::Mailer

Jörg Meltzer - Tue Nov 06 16:18:20 2007

Hallo Stefan,

Wie wärs mit

open my $fh, "<", $admins or die $!;
$adminadressen =  join ", ", map { s/\s+$//; "$_\@localhost" } <$fh>;
close $fh;

Stefan Bauer schrieb:
> 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
>   

Gruß,
  Jörg


Next: