Thread Korrekte Anwendung von select (7 answers)
Opened by Gast at 2011-02-22 11:36

kristian
 2011-02-22 18:16
#145859 #145859
User since
2005-04-14
684 Artikel
BenutzerIn
[Homepage] [default_avatar]
Tina, hast du dir die Sache näher angesehen?
Ich fühle mich gerade leicht ver.. das Wort sag ich nicht, es fängt am Ende an.
Ich strecke die Flügel, das Ding ist mir zu hoch.
Man kann den Code auf das Wesentliche begrenzen und kommt zum gleichen Ergebnis:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

#!/usr/bin/env perl
use warnings;
use 5.010;
use Time::HiRes qw(sleep);
use Curses;
    
initscr();
noecho();           
cbreak(); 
nodelay( 1 );

sub done { endwin(); say "@_"; exit; }

sub my_print {
        my @data = `ps aux 2>&1`;
        for my $i ( 0 .. $LINES - 1 ) { 
                addstr( $i, 0, $data[$i] || ' ' x $COLS );
                sleep 0.1;
                refresh();
                
        } 
}

my $timeout = 2;

my_print();

while ( 1 ) {
      select( undef, undef, undef, $timeout );
      my_print();
}

So ist es wohl eher nachvollziehbar.
Die Antwort auf die Frage "Habe ich hier "select" richtig angewandt" lautet "NEIN", ein sleep 2; wäre sinniger.
(Nach dem sleep weiter oben suche ich noch..)

Soweit mein Latein, ich hoffe mal es wird eine(r) die Ehre der Community retten.

Gruß
Kristian

View full thread Korrekte Anwendung von select