Например, учитывая пустой файл テスト.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 = <<END_USAGE;
======================================================================
Test script to copy files with a UTF-8 filenames to files with
different UTF-8 filenames. This example tries to make copies of all
.txt files with versions that end in .txt.copy.
usage: ${script_name} (<options>)
options:
-output_relfilepath <s> set the output relative file path to <s>.
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 через Strawberry Perl в Windows 7 Professional
- Я использую модуль Win32 для доступа к длинным именам файлов.
- Глобус возвращает короткие имена файлов, которые я должен использовать для доступа к файлу.
- テ ス ト = test (tesuto) в катакане
- Я прочитал perlunitut и Абсолютный минимум Каждый разработчик программного обеспечения должен абсолютно точно знать о Unicode и наборах символов (без оправданий!)
