Re: From WinNT to Unix

[jwest]

Well, I'm not sure what the side effects of Win32::Process::Create are, but generally speaking, you can get the same effect by using the system() function.

system("md5 $IdocFileName $IdocMd5FileName &") and die "System failed";

Another approach is to use fork() to create a process, and exec() the process you want it to run.

my @pids;
my $pid;
if ($pid = fork()) {
  # Parent process
    push(@pids, $pid);
} else {
  # Child process
  exec('md5', $IdocFileName, $IdocMd5FileName);
  exit; # This should never be reached.
}
...
# Clean up the children later...
foreach $pid (@pids) {
  waitpid($pid);
}

system() handles most of this for you, though.

Hope this helps!

--jwest

-><- -><- -><- -><- -><-
All things are Perfect
    To every last Flaw
    And bound in accord
         With Eris's Law
            HBT; The Book of Advice, 1:7