Re^2: How to execute dos commands from Perl

[Poornima]

Hi, I am trying to execute a .NET exe from Perl script which should execute on dos prompt adn return the control back to perl script. The .NET exe would be sending fax to the users adn create a .done file, which would be read from the perl script after the execution.

[cdarke]

Then how come you say it was executed in a UNIX shell? Are you using Cygwin? Are you trying to execute a .Net program on UNIX?

Just to be clear, by "dos prompt" and "dos commands" do you mean the Windows cmd.exe shell?

[Anonymous Monk]

IMHO, if you want to execute a .net program on windows, you should use someting like this:

    my $CmdNgen          = "$fw20cmd\\ngen.exe";
    my $ParmNgenPause    = "ngen queue pause";
    my $rc;
    $rc = ProcessItWin( $CmdNgen, $ParmNgenPause );

    sub ProcessItWin {

        my ( $ProcessCmd, $ProcessParam ) = @_;
        my $ProcessObj = undef;

        #print "Start $ProcessCmd $ProcessParam\n";

        my $rc = Win32::Process::Create( $ProcessObj, $ProcessCmd, $Pr
+ocessParam, 0, NORMAL_PRIORITY_CLASS, q{.} )
            or $rc = ErrorReport($ProcessCmd);

        my $pid = $ProcessObj->GetProcessID();

        $ProcessObj->Wait(INFINITE);

        return $rc;

    }

    sub ErrorReport {
        my $cmd = shift;
        print "\n *** Error CreateProcess: Command=$cmd, ", Win32::For
+matMessage( Win32::GetLastError() ), "\n";
        return 0;
    }

Also please read perldoc Win32::Process