Win32::Unicode::Process - manipulate processes.

Win32-Unicode documentation Contained in the Win32-Unicode distribution.

Index

Code Index:

NAME

Top

Win32::Unicode::Process - manipulate processes.

SYNOPSIS

Top

  use Win32::Unicode::Process;

  systemW "echo $flagged_utf8_string";
  systemW 'perl', '-e', 'print "ok"';

  execW "echo $flagged_utf8_string";
  execW 'perl', '-e', 'print "ok"';

DESCRIPTION

Top

THIS MODULE IS ALPHA LEVEL AND MANY BUGS.

Win32::Unicode::Process is Unicode friendly manipulate process. But always use the SHELL. That could become a security hole.

FUNCTIONS

Top

systemW

like CORE::system.

  systemW "echo $flagged_utf8_string";
  systemW 'perl', '-e', 'print "ok"';
execW

like CORE::exec

  execW "echo $flagged_utf8_string";
  execW 'perl', '-e', 'print "ok"';

AUTHOR

Top

Yuji Shimada <xaicron@cpan.org>

SEE ALSO

Top

Win32::Process

LICENSE

Top

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Win32-Unicode documentation Contained in the Win32-Unicode distribution. 
package Win32::Unicode::Process;

use strict;
use warnings;
use 5.008003;
use Win32API::File ();
use Carp ();
use Exporter 'import';

use Win32::Unicode::Util;
use Win32::Unicode::Constant;
use Win32::Unicode::XS;

# export subs
our @EXPORT    = qw/systemW execW/;
our @EXPORT_OK = qw//;
our %EXPORT_TAGS = ('all' => [@EXPORT, @EXPORT_OK]);

our $VERSION = '0.25';

# cmd path
my $SHELL = do {
    my $path = catfile($ENV{ComSpec} || 'C:/WINDOWS/system32/cmd.exe');
    utf8_to_utf16($path) . NULL;
};

sub systemW {
    my $pi = _create_process(@_) or return 1;
    Win32API::File::CloseHandle($pi->{thread_handle});
    wait_for_input_idle($pi->{process_handle});
    wait_for_single_object($pi->{process_handle});
    my $exit_code = get_exit_code($pi->{process_handle});
    Win32API::File::CloseHandle($pi->{process_handle});
    
    return defined $exit_code ? $exit_code : 1;
}

sub execW {
    my $pi = _create_process(@_) or return 1;
    Win32API::File::CloseHandle($pi->{thread_handle});
    Win32API::File::CloseHandle($pi->{process_handle});
    
    return 0;
}

sub _create_process {
    my $cmd = shift || return;
    my @args;
    for (@_) {
        my $arg = $_;
        $arg =~ s/^"|"$//g;     # trim qquote
        $arg =~ s/"/\"/g;       # escape qquote
        push @args, qq{"$arg"};
    }
    
    $cmd = utf8_to_utf16("/x /c $cmd " . join q{ }, @args) . NULL; # mybe security hole :-(
    
    return create_process($SHELL, $cmd);
}

1;

__END__