Use Win32::Unicode

Combine with Win32::ShellQuote

*groan*

Thank you. Using this module was the only solutions that worked. However, the module's author stating "THIS MODULE IS ALPHA LEVEL AND MANY BUGS." makes me feel not very good.

However, the module's author stating "THIS MODULE IS ALPHA LEVEL AND MANY BUGS." makes me feel not very good.

Well, feel better, no need to worry :)

Here is an level upgrade for rt://Win32-Unicode, that makes it use the shell the official safe way with Win32::ShellQuote

You use mySystemW and myExecWjust like you would systemW and execW

sub myExecW {
    use Win32::Unicode::Process qw//;
    my $pi = My_create_process( @_ ) or return 1;
    
    Win32::Unicode::Process::close_handle($pi->{thread_handle});
    Win32::Unicode::Process::close_handle($pi->{process_handle});
    
    return 0;
} ## end sub myExecW

sub mySystemW {
    use Win32::Unicode::Process qw//;
    my $pi = My_create_process( @_ ) or return 1;
    Win32::Unicode::Process::close_handle( $pi->{thread_handle} );
    Win32::Unicode::Process::wait_for_input_idle( $pi->{process_handle
+} );
    Win32::Unicode::Process::wait_for_single_object( $pi->{process_han
+dle} );
    my $exit_code =
      Win32::Unicode::Process::get_exit_code( $pi->{process_handle} );
    Win32::Unicode::Process::close_handle( $pi->{process_handle} );
    return defined $exit_code ? $exit_code : 1;
} ## end sub mySystemW

sub My_create_process {
    use Win32::Unicode::Process qw//;
    use Win32::ShellQuote qw//;
    @_ or return;

    my $program = "";
    my $cmdline = "";
    if( @_ > 1 ) {
        ( $program ) = @_;
        $cmdline = Win32::ShellQuote::quote_system_string( @_ );
    } else {
        ( $cmdline ) = @_;
    }

    die "Bad program name ( $program )" if $program =~ m/[<>"?*|]/;

    $program = Win32::Unicode::Process::utf8_to_utf16( $program )
      . Win32::Unicode::Process::NULL();
    $cmdline = Win32::Unicode::Process::utf8_to_utf16( $cmdline )
      . Win32::Unicode::Process::NULL();

    return Win32::Unicode::Process::create_process( $program, $cmdline
+ );
} ## end sub My_create_process
[download]