File: rt53556.pl

package info (click to toggle)
libshell-posix-select-perl 0.09-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 800 kB
  • sloc: perl: 2,727; makefile: 7
file content (23 lines) | stat: -rwxr-xr-x 192 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!perl
use Shell::POSIX::Select;
&print_count();
sub nll()
  {
  0;
  }

{
our $count;
format STDOUT =
^<<<
$count
.
sub print_count()
{
$count=0;
select(STDOUT);
write(STDOUT);
};
}

__END__