Adjust some perl & tcl related things in various scripts & utilities.
[dragonfly.git] / tools / tools / mid / mid-master
1 #!/usr/pkg/bin/perl
2
3 if ($#ARGV < 1) {
4     die "usage master counter command comandargs ... \n";
5 }
6
7 $count = $ARGV[0]; shift @ARGV;
8 @command = @ARGV;
9 $file = pop(@command);
10 undef @ARGV;
11 $debug = 0;
12
13 for($i = 0; $i < $count; $i ++) {
14     @c = (@command, "$file.$i");
15     warn "Start process: $i @c\n" if $debug;
16     open("OUT$i", "| @c") || die "open @c\n";
17     select("OUT$i"); $| = 1;
18 }
19 select(STDOUT);
20
21 $n = 0;
22 while(<>) {
23     $o = 'OUT' . ($n % $count);
24     print $o $_;
25     warn "$o $_" if $debug;
26     $n++
27 }
28
29 for($i = 0; $i < $count; $i ++) {
30     warn "Close process $i\n" if $debug;
31     close("OUT$i") || warn "close OUT$i: $!\n";
32 }
33