Wie kann ich überprüfen, (peek) STDIN geleitet von Daten in Perl ohne mit select?

Ich versuche zu verarbeiten, die Möglichkeit, dass keine Argumente und keine weitergeleiteten Daten an ein Perl-Skript. Ich gehe davon aus, dass, wenn es keine Argumente geben wird geleitet über STDIN. Jedoch, wenn der Nutzer keine Argumente und nicht Rohr nichts zu dem Skript, es wird versuchen, um Tastatur-Eingaben. Mein Ziel ist stattdessen eine Fehlermeldung.

Leider select() ist nicht tragbar, einige nicht-POSIX-Systeme.
Gibt es eine andere Möglichkeit, dies zu tun mit maximaler Portabilität?

InformationsquelleAutor C-o-r-E | 2009-02-06
  1. 20

    Perl kommt mit dem -t - Datei-test-operator, der Ihnen sagt, wenn eine bestimmte filehandle offen ist, um ein TTY. Also, sollten Sie in der Lage sein, dies zu tun:

    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.
}

    Einen schnellen test zeigt dies funktioniert einwandfrei auf Windows mit Perl 5.10.0 und Linux mit Perl 5.8.8, so sollte es portabel sein die meisten common Perl-Umgebungen.

    Wie andere erwähnt haben, select wäre nicht eine verlässliche Wahl, da kann es mal sein, wenn Sie gerade Lesen, von einem Prozess, aber dieser Prozess hat noch nicht angefangen zu schreiben, noch.

    Alles gute,

    Paul

    • Bestätigt die Arbeit auf Mac OS X. +5 wenn ich könnte, aber ich kann nicht, also +1.
    • Dies wird nicht so funktionieren, wie vorgesehen, durch OP, wenn das Programm ausgeführt wird auf einem entfernten host über ssh. Ohne dass ssh weisen einen pseudo-terminal, ssh connect pipes zu stdin und stdout des Programms und die -t test schlägt fehl, obwohl keine Daten bekommen könnte verrohrt.
    InformationsquelleAutor pjf
  2. 5
    use POSIX 'isatty';
if ( ! @ARGV && isatty(*STDIN) ) {
    die "usage: ...";
}

    Finden Sie unter: http://www.opengroup.org/onlinepubs/009695399/functions/isatty.html

    Beachten Sie, dass wählen würde nicht viel helfen auf jeden Fall, denn es würde falsche Ergebnisse produzieren
    wenn das weitergeleitete info war nicht noch bereit. Beispiel:

    seq 100000|grep 99999|perl -we'$rin="";vec($rin,fileno(STDIN),1)=1;print 0+select($rin,"","",.01)'
    • Das ist nicht besser als select() sind, verwenden Sie POSIX-zu. Der OP ausdrücklich gesagt: Leider select() ist nicht tragbar, einige nicht-POSIX-Systeme.
    • Ich bin zu erklären, was besser wäre, als das wählen dort, wo nicht-POSIX-Portabilität ist kein Problem.
    InformationsquelleAutor ysth
Schreibe einen Kommentar