in reply to Using SYSTEM2 on Windows

I just want to point out that ActiveState's default repository doesn't have the module, and the CPAN test report lists it failing on Windows.

I don't think there is a Windows version. Beside doing what ikegami suggests, you should examine why you were led to believe it would work on Windows -- was it specially modified or something?

Replies are listed 'Best First'.
Re^2: Using SYSTEM2 on Windows
by Marshall (Canon) on May 16, 2009 at 16:31 UTC
    IPC-Run3 is in activestate repository. Maybe this does what you need?
    http://matrix.cpantesters.org/?dist=IPC-Run3+0.042

    #!/usr/bin/perl -w
use strict;
# running Active state 5.10

use IPC::Run3;

run3 ("dir C:/");

    [download]
    works fine.
    Sounds like you just need Run3 instead of just simply "run".

    Update:
    if you read the params to run3, you can give it handles for stdin, stdout, stderr, etc. run3 appears to be implemented on *nix as well as Windows, so I don't think you need any special Windows vs *nix code.

[reply]
[d/l]
Re^2: Using SYSTEM2 on Windows
by rthawkcom (Novice) on May 27, 2009 at 20:14 UTC
    Sorry for the delay. Our solution was to just rip it out entirely instead of fighting with it. I've needed a solution like this for other applications, so I took a look at the code you suggested. IPC::Run3 does seem to work, but I couldn't figure out how to connect to it. There are no examples at all and no one seems to use it. I tried setting up pipes for it, but nothing is returned when I do that: 
    use IPC::Run3;
use IO::Pipe;

my $cmd = "cmd /D/C dir";

my $out = new IO::Pipe;    $out->reader();
my $err = new IO::Pipe;    $err->reader();

run3 $cmd, $out, $err;

print "OUT: $out ERR: $err\n";

map {print "$_\n"}<$out>;
map {print "$_\n"}<$err>;

    [download]
[reply]
[d/l]
      use IPC::Run3 qw( run3 );

my $cmd = "cmd /D/C dir";
run3 $cmd, undef, \my @out, \my @err;

print "STDOUT: $_" for @out;
print "STDERR: $_" for @err;

      [download]

      @out and @err can be scalars if you don't need the lines to be split

[reply]
[d/l]
[select]
        Oh! I see now. Works perfectly! You guys amaze me by what you know. Thanks!
[reply]

In Section Seekers of Perl Wisdom