NAME

Win32::Unicode::Dir.pm - Unicode string directory utility.

SYNOPSIS

  use Win32::Unicode::Console;
  use Win32::Unicode::Dir;
  
  my $dir = "I \x{2665} Perl";
  
  my $wdir = Win32::Unicode::Dir->new;
  $wdir->open($dir) || die $wdir->error;
  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 || dieW $wdir->error;
  
  my $cwd = getcwdW();
  chdirW($change_dir_name);
  
  mkdirW $dir;
  rmdirW $dir;

DESCRIPTION

Win32::Unicode::Dir is Unicode string directory utility.

METHODS

new

  my $wdir = Win32::Unicode::Dir->new;

open($dir)

Like opendir.

  $wdir->open($dir) or dieW $wdir->error;

fetch()

Like readdir.

  while (my $file = $wdir->fetch) {
     # hogehoge
  }
  

or

  for my $file ($wdir->fetch) {
     $ hogehoge
  }
  

read and readdir is alias of fetch.

close()

Like closedir.

  $wdir->close or dieW $wdir->error

error()

get error message.

FUNCTIONS

getcwdW

Like Cwd::getcwd.

  my $cwd = getcwdW;

chdirW($dir)

Like chdir.

  chdirW($dir) or dieW errroW;

mkdirW($new_dir)

Like mkdir.

  mkdirW($new_dir) or dieW errorW;

rmdirW($del_dir)

Like rmdir.

  rmdirW($del_dir) or dieW errorW;

rmtreeW($del_dir)

Like File::Path::rmtree.

  rmtreeW($del_dir) or dieW errorW;

mkpathW($make_long_dir_name)

Like File::Path::mkpath.

  mkpathW($make_long_dir_name) or dieW errorW

cptreeW($from, $to [, $over])

copy directory tree.

  cptreeW $from, $to or dieW errorW;

mvtreeW($from, $to [, $over]))

move directory tree.

  mvtreeW $from, $to or dieW errorW;

findW($code, $dir)

like File::Find::find.

  findW(sub {
      my $file = $_;
      my $full_path = $Win32::Unicode::Dir::name;
      my $cwd = $Win32::Unicode::Dir::cwd;
  }, $dir) or dieW errorW;

or findW(sub { my $arg = shift; printf "%s : %s : %s", $arg->{file}, $arg->{path}, $arg->{cwd}; }, $dir) or dieW errorW;

finddepthW($code, $dir)

like File::Find::finddepth.

dir_size($dir)

get directory size. this function are slow.

  my $dir_size = dir_size($dir) or dieW errorW

file_list($dir)

get files from $dir

  my @files = file_list $dir;

dir_list($dir)

get directorys from $dir

  my @dirs = dir_list $dir;

AUTHOR

Yuji Shimada <xaicron@cpan.org>

SEE ALSO

Win32 Win32API::File Win32::Unicode Win32::Unicode::File Win32::Unicode::Error

LICENSE

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