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
|
#!/usr/bin/perl
my %opts;
my @args;
{
my $opts = 1;
foreach (@ARGV) {
if ($opts) {
$opts = 0 if /^--$/;
$opts{$1} = $2 if /^-([a-zA-Z])(.+)$/;
} else {
push (@args, $_);
}
}
}
my $mode = $opts{'M'};
if ($mode eq 'redirect') {
my $stdout = $opts{'o'} || die "No -o";
my $stderr = $opts{'O'} || die "No -O";
open (STDOUT, ">$stdout") || die "Could not redirect STDOUT to $stdout: $!";
open (STDERR, ">$stderr") || die "Could not redirect STDERR to $stderr: $!";
select STDERR; $| = 1;
select STDOUT; $| = 1;
exec { $args[0] } @args;
die "Could not exec " . join(' ', @args) . ": $!";
}
else {
die "Unknown mode: $mode\n";
}
|
