Re: [PERL] Læse fra pipe med input fra andet program.

["Peter á Rógvu" <sslug@sslug>]

"Peter Makholm" <sslug@sslug> skrev i en meddelelse
news:sslug@sslug
> "Peter á Rógvu" <sslug@sslug> writes:
>
> > Hej tak for svaret, men det er ikke helt det jeg ville have fat i.
> > Når man piper output over i scriptet læser den det fint nok ind, men
> > problemt er når man
> > ikke bruger pipe. f.eks kalder scriptet således .
> > # ./perlscriptet.pl
>
> Du vil altså gøre forskel på om stdin er en pipe fra et andet program
> eller terminalen?
>
> Så skal du bruge isatty()-funktionen fra POSIX-modulet:
>
> #!/usr/bin/perl
>
> use POSIX qw(isatty);
>
> [...]
>
> unless (isatty(STDIN)) {
>     while (<>) {
>         [... læs inddata ...]
>     }
> }
>
> [...]
>
> --
>  Peter Makholm     |              I have no caps-lock but I must scream...
>  sslug@sslug |                                               -- Greg
>  http://hacking.dk |
>

Mange tak
Det virkede perfekt.
Vh
Peter á Rógvu