Come posso controllare (guardare) STDIN per i dati inviati in Perl senza usare select?

Question

Sto tentando di gestire la possibilità che nessun argomento e nessun dato inviato venga passato a uno script Perl. Suppongo che se non ci sono argomenti, allora l'input viene inviato tramite STDIN. Tuttavia, se l'utente non fornisce argomenti e non inserisce nulla nello script, proverà a ottenere input da tastiera. Il mio obiettivo è di fornire invece un messaggio di errore.

Sfortunatamente, select() non è portabile su alcuni sistemi non POSIX. C'è un altro modo per farlo con la massima portabilità?

Answer 1

Perl viene fornito con l'operatore -t di file-test, che ti dice se un particolare filehandle è aperto ad un TTY. Quindi, si dovrebbe essere in grado di fare questo:

if (-t STDIN and not @ARGV) { 
    # We're talking to a terminal, but have no command line arguments. 
    # Complain loudly. 
} 
else { 
    # We're either reading from a file or pipe, or we have arguments in 
    # @ARGV to process. 
} 

Un test rapido rivela questo bel lavoro su Windows con Perl 5.10.0, e Linux con Perl 5.8.8, quindi dovrebbe essere portabile sul più comune Perl ambienti.

Come altri hanno già detto, select non sarebbe una scelta affidabile in quanto potrebbero esserci delle volte in cui stai leggendo da un processo, ma quel processo non ha ancora iniziato a scrivere.

Tutto il meglio,

Paul

Answer 2

use POSIX 'isatty'; 
if (! @ARGV && isatty(*STDIN)) { 
    die "usage: ..."; 
} 

See: http://www.opengroup.org/onlinepubs/009695399/functions/isatty.html

Nota che selezionare non sarebbe di grande aiuto in ogni caso, dal momento che produrrebbe risultati falsi se informazioni in filodiffusione non era ancora pronto. Esempio:

seq 100000|grep 99999|perl -we'$rin="";vec($rin,fileno(STDIN),1)=1;print 0+select($rin,"","",.01)'