select() tut unverständliches: select, vec, fileno .... - #81359 (Allgemeines zu Perl)

Strat

2003-08-29 23:49

User since
2003-08-04
5246 Artikel
ModeratorIn

Kenne mich mit dem 4-parametrigen select auch nicht aus, weil ich immer IO::Select verwende. Fuer STDIN verwende ich folgenden Cargo-Cult:

Code: (dl )

my $rin = '';
vec($rin,fileno(STDIN),1) = 1;

my $rout;
my $val = "Default";
if (select($rout = $rin,undef,undef,5)){
    $val = <STDIN>;
} else {
    print "Default used\n";
}

print "\n\nThe value: $val\n";

Bei Net::FTP habe ich das timing out mal mit alarm gemacht. Ich kapiere aber im moment nicht so recht, was du genau wie machen willst

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/