1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#
# UNIXFORK : Forking ELZA for Unix platforms
#
# Usage
#
# perl unixfork.pl NUMBER COMMANDFILE
#
# This script will fork NUMBER instances of elza, each running COMMANDFILE
#
# Set those according to your setup
$PathToPerl = '/usr/bin/perl';
$PathToElza = '/mnt/dos/elza/elza.pl';
# ======================================================================
# NO CHANGES BELOW THIS LINE ARE NECESSARY
for $Counter (1..$ARGV[0]) {
&forkelza($Counter);
}
sub forkelza {
my $instance = shift;
my $pid = fork();
if ($pid == 0) {
return;
} else {
system("$PathToPerl $PathToElza $ARGV[1] $instance $ARGV[0]");
exit;
}
}
|
