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

[Lars Clausen <sslug@sslug>]

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

> 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 ?

Her er et meget simpelt script som også virker, i stil med det
oprindelige.  Den her del skriver det bare til stdout:

while (<STDIN>) {
  last if ($_ eq $/);
}
while (<STDIN>) { 
  print; 
}

-Lars

-- 
Lars Clausen (http://shasta.cs.uiuc.edu/~lrclause) | Hårdgrim of Numenor
"I do not agree with a word that you say, but I    | Retainer of Sir Kegg
will defend to the death your right to say it."    |   of Westfield
    --Evelyn Beatrice Hall paraphrasing Voltaire   | Chaos Berserker of Khorne