Community  »  Perl: Allgemeines Forum

Inhalt einer Datei als email versenden	Seitenanfang
Hallo, ich bin ganz neu in der Welt von Perl und hätte mal eine Frage: ich will so eine art newsletter machen, sodas jeden Tag einmal eine mail rausgeht in der eine liste innen steht über alle neuen einträge in meinem gästebuch (Name des erstellers und Betreff) Ich bin jetzt schon soweit das ich den Inhalt der mail in eine datei (test.txt z.b.) schreiben kann. das hab ich so gemacht: --------------------------------------------------------------------- @liste=("es wurde ein neuer Eintrag von \"$name\" mit dem Betreff: \"$subject\" erstellt."); #Text open(DATEI,">>test.txt"); # oeffne Datei zum Anhaengen foreach $name (@liste) { # alle Strings der Liste print DATEI "$name\n"; # in die Datei schreiben } close(DATEI); ------------------------------------------------------------------------------- Mein Problem ist jetzt das ich den Inhalt dieser Datei jeden Tag einmal automatisch per email verschicken möchte. Ich würde also gerne alles was in der Datei steht als Text der Email verwenden und anschließend den Inhalt der Textdatei löschen, sodas am nächsten Tag wieder nurnoch das neue zeug innen steht. Kann mir da vielleicht jemand ein paar zeilen sagen wie ich das realisieren kann ? Währe euch sehr dankbar ! Gruß Chriss Datum: 07.01.2008-14:21
re: Inhalt einer Datei als email versenden	Seitenanfang
my $filename = '/pfad/der/datei.txt'; # slurp the file my $content = do{ local (@ARGV,$/) = $filename; <> }; open my $mail, '| /path/to/sendmail -oit' or die $!; print $mail qq~From: Your\@address.example To: Recipient\@address.example Subject: Newsletter $content ~; close $mail; Datum: 07.01.2008-15:04
re: Inhalt einer Datei als email versenden	Seitenanfang
hallo Renèe danke für deine antwort! wenn ich das so mache bringt es mir folgenden fehler: Bad file descriptor at D:\Inetpub\ewa-board\cgi-bin\ics2\board\wwwboard.pl line 800, <> line 1. weist du was das ist ? Datum: 07.01.2008-15:25