Re: [PERL] Simpelt Perl spørgsmål

[Ole Tange <sslug@sslug>]

On Wed, 30 Aug 2000, Poul Møller Hansen wrote:

> 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.
> 
> -------------------------------------------------------------
> #!/usr/bin/perl
> #
> 
> $filnavn = "xml$$";
> 
> 
> open(FILE, ">>/tmp/$filnavn") or die "Can't write to $filnavn; $!\n";

$/="\n\n";

<STDIN>;

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

$/ er recordseparator. I stedet for at søge efter en \n søges der nu efter
to \n'er.


/Ole