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]

In reply to Re^3: Non asci character and system call by Anonymous Monk
in thread Non asci character and system call by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.