草庐IT

windows - 为什么 Windows 中的 Perl 不能用变音符号重命名文件？

coder 2024-06-13 原文

目录下的文件列表如下:

  1. 01 Born - Praised - Kissed.flac
  2. 02 文施金德.flac
  3. 03 你知道了.flac
  4. 04 Down in this Hole.flac
  5. 05 Wälsungenblut.flac
  6. ... N.0N 文件名

#Yes, these are the songs of Oomph!

以及以下 Perl 程序:

use warnings;
use strict;
use utf8;
use open qw( :encoding(UTF-8) :std );

my @dirnames;

while ( (my $dirname = <>) =~ /\S/ ) {
    chomp($dirname);
    push (@dirnames, $dirname);
}

foreach my $dirname (@dirnames) {
    opendir (DIR, $dirname);
    while ( my $file = readdir(DIR) ) {
        if(length($file)>5) {
            print $file , "\n";
            my $newfile;

            $newfile = substr($file, 0, 2);
            $newfile .= '.';
            $newfile .= substr($file, 2);

            rename ($dirname . '\\' . $file, $dirname . '\\' . $newfile) or die $!;
        }
    }
    closedir DIR;
}

获取目录列表并通过在数字后添加点来重命名其中的文件。

程序在所有文件上都能正常工作，但是当它尝试重命名文件名中带有变音符号的文件时，Windows PowerShell 和命令行都会抛出错误 Permission denied在带有 rename 的字符串处功能。

如何解决这个问题，伙计们？

更新。软件:

  • Windows 8 x64
  • ActiveState ActivePerl 1601 (Perl 5.16)

最佳答案

Perl 的 readdir 使用旧接口(interface)(“ANSI”)，因为它由于其 unix 传统只能处理由字节组成的文件名。

“ANSI”接口(interface)使用称为代码页的单字节字符编码。您系统的代码页是 1251 ，并且它不提供编码“ä”的方法，因此 readdir 无法返回包含“ä”的文件名。

您需要避开此“ANSI”接口(interface) (FindFirstFileA) 并获得对 FindFirstFileW 的访问权限。这将提供 UTF-16le 格式的文件名，您可以将其传递给 Win32API::File。的 MoveFileExW。 Win32::Unicode::Dir的 open+fetch 就是这样做的。

这是一个令人沮丧的事态。我一直想解决这个问题，但这将是一个广泛的项目。

use utf8;
use Win32 qw( );
BEGIN {
   binmode(STDOUT, ':encoding(cp'.Win32::GetConsoleOutputCP().')');
   binmode(STDERR, ':encoding(cp'.Win32::GetConsoleOutputCP().')');
}


use strict;
use warnings;
use feature qw( say );
use open ':encoding(UTF-8)';

use Encode              qw( encode );
use Win32::Unicode::Dir qw( mvtreeW );
use Win32API::File      qw( MoveFileExW );

my $dir_qfn = '.';

my $wdir = Win32::Unicode::Dir->new();
$wdir->open($dir_qfn)
   or die("Can't open $dir_qfn: ".$wdir->error());

for ($wdir->fetch()) {
   next if /^\.\.?\z/;
   next if length() <= 5;

   say;

   my $o_fn = $_;
   s/^..\K/./s;
   my $n_fn = $_;

   MoveFileExW(
      encode('UTF-16le', "$dir_qfn/$o_fn\0"),
      encode('UTF-16le', "$dir_qfn/$n_fn\0"),
      0,  # or MOVEFILE_REPLACE_EXISTING
   )
      or die("Can't rename $o_fn to $n_fn: $^E\n");
}

$wdir->close();

关于windows - 为什么 Windows 中的 Perl 不能用变音符号重命名文件？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/17175170/

命名windowscode39sectionperlencodingrenamediacritics

有关windows - 为什么 Windows 中的 Perl 不能用变音符号重命名文件？的更多相关文章

  1. ruby - 如何从 ruby​​ 中的字符串运行任意对象方法？ - 2

    总的来说，我对ruby​​还比较陌生，我正在为我正在创建的对象编写一些rspec测试用例。许多测试用例都非常基础，我只是想确保正确填充和返回值。我想知道是否有办法使用循环结构来执行此操作。不必为我要测试的每个方法都设置一个assertEquals。例如:describeitem,"TestingtheItem"doit"willhaveanullvaluetostart"doitem=Item.new#HereIcoulddotheitem.name.shouldbe_nil#thenIcoulddoitem.category.shouldbe_nilendend但我想要一些方法来使用

  2. ruby - 为什么我可以在 Ruby 中使用 Object#send 访问私有(private)/ protected 方法？ - 2

    类classAprivatedeffooputs:fooendpublicdefbarputs:barendprivatedefzimputs:zimendprotecteddefdibputs:dibendendA的实例a=A.new测试a.foorescueputs:faila.barrescueputs:faila.zimrescueputs:faila.dibrescueputs:faila.gazrescueputs:fail测试输出failbarfailfailfail.发送测试[:foo,:bar,:zim,:dib,:gaz].each{|m|a.send(m)resc

  3. ruby - 其他文件中的 Rake 任务 - 2

    我试图在一个项目中使用rake，如果我把所有东西都放到Rakefile中，它会很大并且很难读取/找到东西，所以我试着将每个命名空间放在lib/rake中它自己的文件中，我添加了这个到我的rake文件的顶部:Dir['#{File.dirname(__FILE__)}/lib/rake/*.rake'].map{|f|requiref}它加载文件没问题，但没有任务。我现在只有一个.rake文件作为测试，名为“servers.rake”，它看起来像这样:namespace:serverdotask:testdoputs"test"endend所以当我运行rakeserver:testid时

  4. ruby-on-rails - Ruby net/ldap 模块中的内存泄漏 - 2

    作为我的Rails应用程序的一部分，我编写了一个小导入程序，它从我们的LDAP系统中吸取数据并将其塞入一个用户表中。不幸的是，与LDAP相关的代码在遍历我们的32K用户时泄漏了大量内存，我一直无法弄清楚如何解决这个问题。这个问题似乎在某种程度上与LDAP库有关，因为当我删除对LDAP内容的调用时，内存使用情况会很好地稳定下来。此外，不断增加的对象是Net::BER::BerIdentifiedString和Net::BER::BerIdentifiedArray，它们都是LDAP库的一部分。当我运行导入时，内存使用量最终达到超过1GB的峰值。如果问题存在，我需要找到一些方法来更正我的代

  5. ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2

    我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0

  6. ruby-on-rails - Rails 3 中的多个路由文件 - 2

    Rails2.3可以选择随时使用RouteSet#add_configuration_file添加更多路由。是否可以在Rails3项目中做同样的事情？ 最佳答案 在config/application.rb中:config.paths.config.routes在Rails3.2(也可能是Rails3.1)中，使用:config.paths["config/routes"] 关于ruby-on-rails-Rails3中的多个路由文件，我们在StackOverflow上找到一个类似的问题

  7. ruby-on-rails - Rails - 子类化模型的设计模式是什么？ - 2

    我有一个模型:classItem项目有一个属性“商店”基于存储的值，我希望Item对象对特定方法具有不同的行为。Rails中是否有针对此的通用设计模式？如果方法中没有大的if-else语句，这是如何干净利落地完成的？ 最佳答案 通常通过Single-TableInheritance. 关于ruby-on-rails-Rails-子类化模型的设计模式是什么？，我们在StackOverflow上找到一个类似的问题： https://stackoverflow.co

  8. ruby - 如何将脚本文件的末尾读取为数据文件(Perl 或任何其他语言) - 2

    我正在寻找执行以下操作的正确语法(在Perl、Shell或Ruby中):#variabletoaccessthedatalinesappendedasafileEND_OF_SCRIPT_MARKERrawdatastartshereanditcontinues. 最佳答案 Perl用__DATA__做这个:#!/usr/bin/perlusestrict;usewarnings;while(){print;}__DATA__Texttoprintgoeshere 关于ruby-如何将脚

  9. ruby - 什么是填充的 Base64 编码字符串以及如何在 ruby​​ 中生成它们？ - 2

    我正在使用的第三方API的文档状态:"[O]urAPIonlyacceptspaddedBase64encodedstrings."什么是“填充的Base64编码字符串”以及如何在Ruby中生成它们。下面的代码是我第一次尝试创建转换为Base64的JSON格式数据。xa=Base64.encode64(a.to_json) 最佳答案 他们说的padding其实就是Base64本身的一部分。它是末尾的“=”和“==”。Base64将3个字节的数据包编码为4个编码字符。所以如果你的输入数据有长度n和n%3=1=>"=="末尾用于填充n%

  10. ruby - 解析 RDFa、微数据等的最佳方式是什么，使用统一的模式/词汇(例如 schema.org)存储和显示信息 - 2

    我主要使用Ruby来执行此操作，但到目前为止我的攻击计划如下:使用gemsrdf、rdf-rdfa和rdf-microdata或mida来解析给定任何URI的数据。我认为最好映射到像schema.org这样的统一模式，例如使用这个yaml文件，它试图描述数据词汇表和opengraph到schema.org之间的转换:#SchemaXtoschema.orgconversion#data-vocabularyDV:name:namestreet-address:streetAddressregion:addressRegionlocality:addressLocalityphoto:i

随机推荐