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

[Peter Makholm <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 |