File: test2slave

package info (click to toggle)
libproc-reliable-perl 1.16-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 156 kB
  • sloc: perl: 520; makefile: 2
file content (13 lines) | stat: -rwxr-xr-x 216 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl
use FileHandle;
\*STDOUT->autoflush();
print("ready:\n");
$i = 0;
while($line = <STDIN>) {
    print("got $i: '$line'\n");
    $i++;
    #if($i > 3) {  # intentionally cause sigpipe
	#last;
    #}
}