STDIN überspringen (Allgemeines zu Perl)

naich

2004-05-19 12:12

User since
2004-05-17
8 Artikel
BenutzerIn
[default_avatar]

Hey,

ich habe ein kleines, aber feines Problem.

Ich schreibe gerade ein Programm, dass ein STDIN hat.(warum auch nich)

Code: (dl )

my $in = <STDIN>;

Mein Problem ist nun, dass das Programm nun wochenlang auf eine Eingabe warten würde. Ich habe aber nur eine bestimmt Zeit zur Verfügung. Also brauche ich etwas, was z.B. eine Sekunde auf STDIN warten würde und wenn keine Eingabe kommt, soll er die STDIN überspringen.
Gibt`s sowas. Ich danke euch schonmal für eure Mühe.

MfG
naich

sri

2004-05-19 12:44

User since
2004-01-29
828 Artikel
BenutzerIn

perldoc perlipc

Code: (dl )

eval {
    $|++;
    local $SIG{ALRM} = sub { die "timeout!" };
    alarm(2);
    print "INPUT: ";
    my $input = <STDIN>;
    print "INPUT: $input";
};
print "END!\n";

\n\n

http://mojolicio.us/

steve

2004-05-19 18:00

User since
2004-03-04
52 Artikel
BenutzerIn
[default_avatar]

geht auch wieder mit IO::Select. :)

Steve

irgendwie wirds jetzt zum Standartsatz :p

sri

2004-05-19 18:19

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=steve,19.05.2004, 16:00]geht auch wieder mit IO::Select. :)

Steve

irgendwie wirds jetzt zum Standartsatz :p[/quote]
Sieht aber nich so kewl aus. :)

Code: (dl )

use IO::Select;
                                                                                
$|++;
my $s = IO::Select->new;
$s->add( \*STDIN );
print "INPUT: ";
if ( $s->can_read(2) ) {
    my $input = <STDIN>;
    print "INPUT: $input";
}
else {
    print "TIMEOUT!\n";
}
print "END\n";

\n\n

http://mojolicio.us/

naich

2004-05-19 18:30

User since
2004-05-17
8 Artikel
BenutzerIn
[default_avatar]

Klappt ja wunderprächtig. :) DANKE.

MfG
naich

sri

2004-05-19 18:31

User since
2004-01-29
828 Artikel
BenutzerIn

So is besser.

Code: (dl )

$|++;
vec( my $in, fileno(STDIN), 1 ) = 1;
print "INPUT: ";
if ( select( $in, undef, undef, 2 ) ) {
    my $input = <STDIN>;
    print "INPUT: $input";
}
else {
    print "TIMEOUT!\n";
}
print "END\n";

\n\n

http://mojolicio.us/

sri

2004-05-19 18:31

User since
2004-01-29
828 Artikel
BenutzerIn

:blues:\n\n

http://mojolicio.us/

steffenw

2004-05-20 01:36

User since
2003-08-15
692 Artikel
BenutzerIn

Unter Windows funktioniert Select, aber nicht mit STDIN.

$SIG{USER} = sub {love 'Perl' or die};

sri

2004-05-20 01:46

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=steffenw,19.05.2004, 23:36]Unter Windows funktioniert Select, aber nicht mit STDIN.[/quote]
Meine Beispiele sind halt immer für echte Betriebssysteme. ;)

http://mojolicio.us/