Help for this page

Select Code to Download


  1. or download this
    select( (select(STDERR), $|++)[0] );
  2. or download this
    my @list = (select(STDERR), $|++);
select(@list[0]);
  3. or download this
    my ($fh, $junk) = (select(STDERR), $|++);
select($fh);
  4. or download this
    my $fh = select(STDERR);
my $junk = $|++;
select($fh);
  5. or download this
    my $fh = select(STDERR);
$|++;
select($fh);