VPF::Win32::CopyFile не работает - Форум программистов

infarch

Дата 27.9.2012, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 13.3.2009

Репутация: нет
Всего: 1

Вот код которым я тестировал:

Код


        use utf8;

    my $dir = 'folder_dk_åw/folder_hung_űőw/folder russian проверка/маори āō';

    # assume that the storage already exists
    my $storage = "c:\\byggeweb";
    
    my @parts = split '/', $dir;
    print scalar @parts, "\n";
    foreach my $part (@parts){
        $storage .= '\\'.$part;
        Win32::CreateDirectory ($storage) or die "Error creating folder $storage: $^E";
    }
    
    # create a file
    my $filename = "файлик űő āō.txt";
    Win32::CreateFile("$storage\\$filename") or die "Error creating file: $^E";
    my $ansipath = Win32::GetANSIPathName("$storage\\$filename");
    open DEMO, ">", $ansipath;
    print DEMO "some text " x 100;
    close DEMO;    

# copy a file
    my $targetname = "копия файла.pl";
    my $full_copy_name = "$storage\\$targetname";
    Win32::CopyFile("c:\\byggeweb\\customer.pl", $full_copy_name, 0)
        or die "Error copying file: $^E";

Странные имена файлов и папок объясняются тем что я экспериментирую с внедрением поддержки ютф-8 в некую систему. Ну и вот, создание файла работает, а копирование - нет. Пишет "The system cannot find the path specified". Не подскажете-ли как это исправить?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »