jjzjj

windows - 更新一个 unicode 文件给我汉字

coder 2024-06-17 原文

我有一个“Application.config”文件，它是一个 Unicode(而不是 ANSI 或 UTF8)文件，其中包含类似的内容

...
<GENERAL>
            ...
    <FULLVERSION>18.0.13.227</FULLVERSION>
</GENERAL>
...

以下脚本应该将其更改为 18.1.00.012，并在 32 位 Perl/OS 上执行:

my ($Company, $Config);

$Company=$ENV{ProgramData}."\\Sage\\Accounts\\2012\\Application.config";
if( -f  $Company)
{
  $Config='';
  if(open(APPCONF, "<".$Company))
  {
    while(<APPCONF>)
    {
      $Config.=$_;
    }
    close(APPCONF);
  }
  if($Config=~s/(<.F.U.L.L.V.E.R.S.I.O.N.>.).*?(<.\/.F.U.L.L.V.E.R.S.I.O.N.>.)/\1\xfa\2/mi)
  {
    $Config=~s/\xfa/1\x008\x00\.\x000\x001\.\x000\x000\x00\.\x000\x001\x002\x00/mi;
    if(open(APPCONF, ">".$Company))
    {
      binmode(APPCONF);
      print APPCONF $Config;
      close APPCONF;
    }
  }
}

(在 64 位 Perl 上)发生的情况是“FULLVERSION”看起来不错，但“/FULLVERSION”已完全损坏，看起来像中文。

有人能帮忙吗？

皮特

最佳答案 

use autodie qw(:all);
use IO::File qw();
require File::BOM;
my $Company = $ENV{ProgramData} . "\\Sage\\Accounts\\2012\\Application.config";

# File::Slurp apparently is buggy with PerlIO, no time to investigate.
# Let's read/write files the normal way.
my $Config = do {
    open my $appconf, '<:via(File::BOM)', $Company;
    join q(), $appconf->getlines;
};

$Config =~ s|
    (?<= <FULLVERSION> )
    .*
    (?= </FULLVERSION> )
    |18.1.0.012|msx;

{
    open my $appconf, '>:encoding(UTF-16LE):via(File::BOM)', $Company;
    $appconf->print($Config);
}

更好的是，不要用正则表达式破坏 XML，使用 XML module反而。他们还了解 UTF-16。

hexdump Application.bad_2.config

0000:0170 | 09 00 3C 00  46 00 55 00  4C 00 4C 00  56 00 45 00 | ..<.F.U.L.L.V.E.
0000:0180 | 52 00 53 00  49 00 4F 00  4E 00 3E 00  31 00 38 00 | R.S.I.O.N.>.1.8.
0000:0190 | 2E 00 30 00  31 2E 00 30  00 30 00 2E  00 30 00 31 | ..0.1..0.0...0.1
0000:01A0 | 00 32 00 3C  00 2F 00 46  00 55 00 4C  00 4C 00 56 | .2.<./.F.U.L.L.V
0000:01B0 | 00 45 00 52  00 53 00 49  00 4F 00 4E  00 3E 00 0D | .E.R.S.I.O.N.>..
0000:01C0 | 00 0A 00 09  00 3C 00 2F  00 47 00 45  00 4E 00 45 | .....<./.G.E.N.E

关于windows - 更新一个 unicode 文件给我汉字，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/9017104/

windowsunicode00Configsectionperl64-bit

有关windows - 更新一个 unicode 文件给我汉字的更多相关文章

  1. ruby - 使用 RubyZip 生成 ZIP 文件时设置压缩级别 - 2

    我有一个Ruby程序，它使用rubyzip压缩XML文件的目录树。gem。我的问题是文件开始变得很重，我想提高压缩级别，因为压缩时间不是问题。我在rubyzipdocumentation中找不到一种为创建的ZIP文件指定压缩级别的方法。有人知道如何更改此设置吗？是否有另一个允许指定压缩级别的Ruby库？ 最佳答案 这是我通过查看ruby​​zip内部创建的代码。level=Zlib::BEST_COMPRESSIONZip::ZipOutputStream.open(zip_file)do|zip|Dir.glob("**/*")d

  2. 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时

  3. ruby-on-rails - 在 Rails 中将文件大小字符串转换为等效千字节 - 2

    我的目标是转换表单输入，例如“100兆字节”或“1GB”，并将其转换为我可以存储在数据库中的文件大小(以千字节为单位)。目前，我有这个:defquota_convert@regex=/([0-9]+)(.*)s/@sizes=%w{kilobytemegabytegigabyte}m=self.quota.match(@regex)if@sizes.include?m[2]eval("self.quota=#{m[1]}.#{m[2]}")endend这有效，但前提是输入是倍数(“gigabytes”，而不是“gigabyte”)并且由于使用了eval看起来疯狂不安全。所以，功能正常，

  4. ruby-on-rails - unicode 字符串的长度 - 2

    在我的Rails(2.3，Ruby1.8.7)应用程序中，我需要将字符串截断到一定长度。该字符串是unicode，在控制台中运行测试时，例如'א'.length，我意识到返回了双倍长度。我想要一个与编码无关的长度，以便对unicode字符串或latin1编码字符串进行相同的截断。我已经了解了Ruby的大部分unicode资料，但仍然有些一头雾水。应该如何解决这个问题？ 最佳答案 Rails有一个返回多字节字符的mb_chars方法。试试unicode_string.mb_chars.slice(0,50)

  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 - 如何验证 update_all 是否实际在 Rails 中更新 - 2

    给定这段代码defcreate@upgrades=User.update_all(["role=?","upgraded"],:id=>params[:upgrade])redirect_toadmin_upgrades_path,:notice=>"Successfullyupgradeduser."end我如何在该操作中实际验证它们是否已保存或未重定向到适当的页面和消息？ 最佳答案 在Rails3中，update_all不返回任何有意义的信息，除了已更新的记录数(这可能取决于您的DBMS是否返回该信息)。http://ar.ru

  8. ruby - 将差异补丁应用于字符串/文件 - 2

    对于具有离线功能的智能手机应用程序，我正在为Xml文件创建单向文本同步。我希望我的服务器将增量/差异(例如GNU差异补丁)发送到目标设备。这是计划:Time=0Server:hasversion_1ofXmlfile(~800kiB)Client:hasversion_1ofXmlfile(~800kiB)Time=1Server:hasversion_1andversion_2ofXmlfile(each~800kiB)computesdeltaoftheseversions(=patch)(~10kiB)sendspatchtoClient(~10kiBtransferred)Cl

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

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

  10. ruby - 使用 Vim Rails，您可以创建一个新的迁移文件并一次性打开它吗？ - 2

    使用带有Rails插件的vim，您可以创建一个迁移文件，然后一次性打开该文件吗？textmate也可以这样吗？ 最佳答案 你可以使用rails.vim然后做类似的事情::Rgeneratemigratonadd_foo_to_bar插件将打开迁移生成的文件，这正是您想要的。我不能代表textmate。 关于ruby-使用VimRails，您可以创建一个新的迁移文件并一次性打开它吗？，我们在StackOverflow上找到一个类似的问题： https://sta

随机推荐