Re^3: Non asci character and system call

[Anonymous Monk]

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