Simpelt Perl spørgsmål - opfølgning

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

Jeg kan se at der var mange løsningsforslag.
Der var bare ingen af dem, der havde ramt mig.

Men det virker nu med en model a'la den Peter Andreasen foreslog.
Mange tak for hjælpen.

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.