The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Win32::Unicode - perl unicode-friendly wrapper for win32api.

SYNOPSIS

  use utf8;
  use Win32::Unicode;
  
  # unicode console out
  printW "I \x{2665} Perl";
  
  # unicode file util
  unlinkW $file or die $!;
  copyW $from, $to or die $!;
  moveW $from, $to or die $!;
  file_type f => $file ? 'ok' : 'no file';
  my $size = file_size $file;
  touchW $new_file;
  my @stat = statW $file;
  
  # unicode directory util
  mkdirW $dir or die $!;
  rmdirW $dir or die $!;
  my $cwd = getcwdW;
  chdirW $change_dir;
  findW sub { sayW $_ }, $dir;
  finddepthW sub { sayW $_ }, $dir;
  mkpathW $long_path_dir_name;
  rmtreeW $tree;
  cptreeW $from, $to
  mvtreeW $from, $to;
  my $dir_size = dir_size $dir;
  my @file_list = file_list $dir;
  my @dir_list = dir_list $dir;
  
  # opendir
  my $wdir = Win32::Unicode::Dir->new;
  $wdir->open($dir) or die $!;
  for ($wdir->fetch) {
      next if /^\.{1,2}$/;
      
      my $full_path = "$dir/$_";
      if (file_type('f', $full_path)) {
          # $_ is file
      }
      elsif (file_type('d', $full_path))
          # $_ is directory
      }
  }
  $wdir->close or die $!;

DESCRIPTION

Wn32::Unicode is a perl unicode-friendly wrapper for win32api. This module many functions import :P.

Many features easy to use Perl because I think it looks identical to the standard function.

OPTION

Switch Win32::Unicode::Native.

  use Win32::Unicode '-native'; # eq use Win32::Unicode::Native

AUTHOR

Yuji Shimada <xaicron@cpan.org>

SEE ALSO

Win32::Unicode::File

Win32::Unicode::Dir

Win32::Unicode::Console

Win32::Unicode::Process

Win32::Unicode::Error

Win32::Unicode::Native

Win32

LICENSE

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