On Tue Mar 02 1999, Sebastian Willing wrote:
[Header von Mailbody trennen]
> #!/usr/bin/perl
> $O=0;
> while (<STDIN>) {
> $X = $_;
> $X =~ s/\n//gi;
> if ($O == 1) { print STDOUT "$X\n"; }
> if ($X eq "") { $O=1; }
> }
> Sollte Dein Problem loesen. Liest von STDIN und schreibt auf STDOUT. Da die
> Header grundsaetzlich mit einer Leerzeile vom Text getrennt sind, sollte das
> klappen.
Urgs. Probier mal den:
while (<>) {
if (1 .. /^$/) { print HEADER; } else { print BODY; }
}
--
Um aus der Liste ausgetragen zu werden, eine Mail an [EMAIL PROTECTED]
schicken, mit dem Text: unsubscribe suse-linux
