Re: [PERL] Flere linier tekst...

[Christian Borup <sslug@sslug>]

Henrik Carling wrote:

> Lennart Hansen wrote:
> >
> > Hej igen folks....
> > [...]
> > på hvordan man kan sætte flere liniers tekst ind i en
> > variable ???
> >
> > er det noget med "$tekst = <STDIN>;" at gøre ???
> > eller skal jeg bruge en helt anden funktion ??
> >
> > MVH
> >     Lennart Hansen
>
> Om du bara vill läsa in  flera rader från stdin i en scalar (variabel):
>
> my $rad;
> my $multi_line;
>
> while (defined($rad = <STDIN>))
>   {
>   $multi_line .= $rad;
>   }

Dette er hurtigere (og kortere):

     undef $/;
     $multiline = <STDIN>;

Mvh
Borup