Testen ob in STDIN was drin ist: oder ob da nix drin ist... - #58340 (Allgemeines zu Perl)

blackm

2003-09-29 17:09

User since
2003-09-22
10 Artikel
BenutzerIn

OK, fuer alle die es interessiert, so mach ich das nun:

Code (perl): (dl )

#! /usr/bin/perl -w

use strict;
use IO::Select;

my $sel = new IO::Select( "STDIN");

if(!$sel->can_read( 3 )) {
    die "STDIN ist leer\n";
}

print "Hier geht das Programm weiter..\n";

by & und Danke nochmal fuer den Hinweis auf IO::Select, Martin