Как я копирую файл с именем файла UTF-8 к другому имени файла UTF-8 в Perl в Windows?

Например, учитывая пустой файл テスト.txt, как я сделал бы копию названной テスト.txt.copy?

Моей первой трещине в нем удалось получить доступ к файлу и создать новое имя файла, но сгенерированную копию テスト.txt.copy.

Здесь была моя первая трещина в нем:

#!/usr/bin/env perl

use strict;
use warnings;

use English '-no_match_vars';
use File::Basename;
use Getopt::Long;

use File::Copy;
use Win32;

my (
    $output_relfilepath,
   ) = process_command_line();

open my $fh, '>', $output_relfilepath or die $!;
binmode $fh, ':utf8';
foreach my $short_basename ( glob( '*.txt') ) {

  # skip the output basename if it's in the glob
  if ( $short_basename eq $output_relfilepath ) {
    next;
  }

  my $long_basename = Win32::GetLongPathName( $short_basename );
  my $new_basename  = $long_basename . '.copy';

  print {$fh} sprintf(
                      "short_basename = (%s)\n" .
                      " long_basename = (%s)\n" .
                      "  new_basename = (%s)\n",
                      $short_basename,
                      $long_basename,
                      $new_basename,
                     );
  copy( $short_basename, $new_basename );
}

printf(
       "\n%s done! (%d seconds elapsed)\n",
       basename( $0 ),
       time() - $BASETIME,
      );

# === subroutines ===

sub process_command_line {

  # default arguments
  my %args
    = (
       output_relfilepath => 'output.txt',
      );

  GetOptions(
             'help'                 => sub { print usage(); exit },
             'output_relfilepath=s' => \$args{output_relfilepath},
            );

  return (
          $args{output_relfilepath},
         );
}

sub usage {
  my $script_name = basename $0;

  my $usage = <)

options:

  -output_relfilepath    set the output relative file path to .
                            this file contains the short, long, and
                            new basenames.
                            (default: 'output.txt')

----------------------------------------------------------------------

examples:

  ${script_name}

======================================================================
END_USAGE

  return $usage;
}

Вот содержание output.txt после выполнения:

short_basename = (BD9A~1.TXT)
 long_basename = (テスト.txt)
  new_basename = (テスト.txt.copy)

Я попытался заменить команду копии File::Copy системным вызовом:

my $cmd = "copy \"${short_basename}\" \"${new_basename}\"";
print `$cmd`;

и с Win32:: CopyFile:

Win32::CopyFile( $short_basename, $new_basename, 'true' );

К сожалению, я получаю тот же результат в обоих случаях (テスト.txt.copy). Для системного вызова, шоу печати 1 file(s) copied. как ожидалось.

Примечания:

• Я выполняю Perl 5.10.0 через Земляничный Perl в Windows 7 Professional
• Я использую модуль Win32 для доступа к длинным именам файлов
• Шарик возвращает короткие имена файлов, которые я должен использовать для доступа к файлу
• テスト = тест (tesuto) в katakana
• Я считал perlunitut и Абсолютный минимум Каждый Разработчик программного обеспечения Absolutely, Положительно Должен Знать О Unicode и Наборах символов (Никакие Оправдания!)