VS: Simpelt Perl spørgsmål

[Poul Møller Hansen <sslug@sslug>]

Hej.

Tak for svarene.
Der er dog ingen af dem der virker, som jeg gerne ville.
For jeg får stadig ikke klippet headeren af :-(

Jeg skal altså på en eller anden måde lave en loop, der læser fra STDIN
indtil
en blank linie og exiter den loop.
Resten skal så i en ny loop hældes i en fil.

Men hvordan ?

Mvh, Poul.

---------------------------------------------------------------------
Tror jeg ihvert fald nok.

Jeg har forsøgt at lave et script, som indkomne mail bliver piped over i,
men jeg kan ikke få det at gøre, som jeg gerne vil.

Jeg vil gerne have klippet headeren af, og resten gemt i en fil.
Jeg har lavet tilsvarende i bash, uden problemer. Men nu skal jeg bruge
Perl.

Her er hvad jeg har forsøgt, men det giver kun en tom fil.

-------------------------------------------------------------
#!/usr/bin/perl
#

$filnavn = "xml$$";


open(FILE, ">>/tmp/$filnavn") or die "Can't write to $filnavn; $!\n";

while ($line = <STDIN>) {
  last if $line = "";
}

print FILE <STDIN>;
close (FILE);
-------------------------------------------------------------

Hjælp ønskes :o)

Mvh,
 Poul Møller Hansen.