为什么我的Perl测试会因`use encoding'utf8'而失败？
在这个问题中，我们要解决的问题是为什么在使用Perl编程语言时，测试会因为use encoding 'utf8'这个指令而失败。
首先，我们需要了解一下Perl编程语言。Perl是一种高级的、通用的、动态的、解释型的编程语言，它支持多种编程范式，包括过程式、面向对象和函数式编程。Perl的设计目标是允许程序员快速地编写、测试和维护程序。
use encoding 'utf8'是一个Perl指令，它告诉Perl解释器在处理文本时使用UTF-8编码。UTF-8是一种通用的字符编码方式，可以表示Unicode字符集中的所有字符，并且具有良好的向后兼容性。
当测试因为use encoding 'utf8'指令而失败时，可能有以下原因：
- 文件本身不是UTF-8编码。如果文件本身使用了不同的编码方式，那么在使用
use encoding 'utf8'指令时，可能会出现解码错误。 - 文件中包含了非UTF-8编码的字符。如果文件中包含了非UTF-8编码的字符，那么在使用
use encoding 'utf8'指令时，可能会出现解码错误。 - 测试环境中没有正确安装或配置Perl编码模块。Perl编码模块是Perl解释器处理编码的基础，如果没有正确安装或配置，可能会导致
use encoding 'utf8'指令无法正常工作。
为了解决这个问题，可以尝试以下方法：
- 检查文件编码。确保文件本身使用UTF-8编码，可以使用文本编辑器或其他工具查看文件的编码方式。
- 检查文件中的字符编码。确保文件中只包含UTF-8编码的字符，可以使用Perl代码检查文件中的字符编码。
- 安装或配置Perl编码模块。确保测试环境中正确安装或配置了Perl编码模块，可以使用Perl代码检查编码模块是否可用。
总之，当测试因为use encoding 'utf8'指令而失败时，可能是文件编码或字符编码的问题，也可能是测试环境中的配置问题。需要根据具体情况进行检查和调试，以解决问题。
相关·内容
我对这个测试脚本感到困惑：
#!perl
use strict;
use warnings;
use encoding 'utf8';
use Test::More 'no_plan';
ok('áá' =~ m/á/, 'ok direct match');
my $re = qr{á};
ok('áá' =~ m/$re/, 'ok qr-based match');
like('áá', $re, 'like qr-based match');
这三个测
浏览 0提问于2009-01-29得票数 9
回答已采纳
1回答
我有一组来自Windows的SHIFT_JIS (日语)编码的csv文件，我试图在运行perlv5.10.1的Linux服务器上处理该文件，使用正则表达式进行字符串替换。
这里是我的要求:我希望Perl脚本的正则表达式具有可读性(至少对日本人是这样)。像这样: s/北/0/g；代替它的是一些十六进制码s//{4eba}/0/g；
现在，我正在Notepad++上编辑Perl脚本，并将需要从csv数据文件中搜索的字符串粘贴到Perl脚本中。
下面有下面的工作测试脚本：
use strict;
use warnings;
use utf8;
open (IN1, "<:encod
浏览 5提问于2013-06-12得票数 0
回答已采纳
假设以下字符串
$doc=<<'TEXT_END';
<LI>11：20
</LI>
<LI><a href="/showtime/ticket/4f3a3cc7017f4202b5add5803594fdd9/" class="openbox">13：55 <font color=a81234 size=-1>訂票</font> </a> </LI>
TEXT_END
如何用
浏览 5提问于2014-03-18得票数 0
回答已采纳
我正在尝试理解perl中的UTF8。
我有下面的字符串Alizéh，如果我查找这个字符串的十六进制，我将从获得416c697ac3a968 (这与这个字符串的原始源代码相匹配)。
因此，我认为打包十六进制并将其编码为utf8应该会生成unicode字符串。但它产生了非常不同的东西。
有人能解释我做错了什么吗？
这里有一个简单的测试程序来展示我的工作。
#!/usr/bin/perl
use strict;
use warnings;
use Text::Unaccent;
use Encode;
use utf8;
binmode STDOUT, ':encoding(UTF-8
浏览 0提问于2019-12-10得票数 2
回答已采纳
我的设置: perl-5.20.2，UTF-8环境.
考虑以下两个bash示例。第一个没问题，第二个不行。
echo -n 'привет мир' | perl -MEncode -le '$a=decode("utf8",<>); $x=decode("utf8","мир"); print encode("utf8",sprintf("% 11s",$a)) if $a=~/$x/'|grep -q ' привет мир' &&
浏览 3提问于2015-05-21得票数 1
回答已采纳
我需要用Perl的UTF-8模式编写一个文件。我该怎么创造呢？
在这种情况下有人能帮忙吗？
我试着这样，找到我下面的代码，
use utf8;
use open ':encoding(utf8)';
binmode(FH, ":utf32");
open(FH, ">test11.txt");
print FH "something Çirçös";
它正在创建一个UTF-8格式的文件。但我需要确定这是否发生在这个脚本中。因为如果我在不使用utf8编码的情况下编写文件，文件内容将自动作为UTF-8格式。
浏览 1提问于2017-09-23得票数 4
回答已采纳
2回答
为什么双模作为原料产生的货币？对于“苏黎世”字符串是如何在内部存储在Perl中的，可以给出详细说明吗？只是有点迷路。
use strict;
use warnings;
my $filename = "result-test-encoding-raw.xml";
open(my $fh,'>', $filename) or die "die";
#binmode $fh, ':utf8'; #bad umlaut
binmode $fh, ':raw'; #good umlaut
print $fh &#
浏览 0提问于2017-09-05得票数 2
回答已采纳
我们在库中有一个bug，这是由其中一个输入是Unicode引起的。
通过使用该库将use utf8;添加到脚本中，它得到了修正。
但是，将use utf8;添加到库本身(因此所有使用该库的脚本都将被修复)没有任何效果。
为什么？这个问题能解决吗？
浏览 0提问于2019-04-04得票数 0
回答已采纳
3回答
我正在德语Windows 7下运行最新的perl，我想在我的perl程序中到处使用utf8 (对于脚本、文件内容、文件名、邮件文本等等)。
所有操作都很好，但是当我试图处理文件名中有特殊字符的文件时，我会遇到问题。即使是system调用也不能正常工作。那么(如何)我可以告诉perl使用utf8 everywhere
我和encode和decode试过一段时间，但很不清楚为什么会起作用.另外，为了在命令提示符窗口中正确显示，我需要encode('cp850', TEXT)。
示例：
当我需要复制一个文件时，它只在我使用File::copy(encode("iso-8859
浏览 0提问于2018-09-11得票数 5
1回答
我编写了一个perl脚本，用于将日文文件名替换为英文文件名。但还有几件事我不太明白。
我有以下配置客户端操作系统：
Windows日本
Notepad++，已安装
服务器：
红帽企业Linux服务器第6.2版
Perl v5.10.1
VIM : VIM版本7.2.411
Xterm : ASTEC-X版本6.0
CSH: tcsh 6.17.00 (阿斯特隆)
这些文件的来源是在Windows上生成的日语.csv文件。我看到了关于在Perl中使用utf8和编码转换的文章，我希望更好地理解为什么我不需要其他线程中提到的任何内容。
这是我的剧本？下面是我的问题。
#!/usr/bin/perl
浏览 5提问于2013-06-11得票数 1
回答已采纳
3回答
我有一个外部模块，它返回给我一些字符串。我不知道字符串到底是如何返回的。我真的不知道Unicode字符串是如何工作的，为什么。
例如，模块应该返回捷克单词“be”，意思是"to be“。(如果您看不到第二个字母--它应该看起来像。)如果我用Dumper显示由模块返回的字符串，则将其视为b\x{fd}t。
但是，如果我尝试用print $s打印它，我会得到“打印中的宽字符”警告，以及？而不是。
如果我尝试Encode::decode(whatever, $s);，结果字符串无论如何都无法打印(总是带有“宽字符”警告，有时带有损坏的字符，有时是正确的)，不管我在whatever中放了什么。
浏览 7提问于2010-10-07得票数 3
回答已采纳
说：
：编码使用:在open()或binmode()中进行编码(编码)来安装透明地进行字符集和编码转换的层，例如从Shift-JIS到Unicode。注意，在stdio an : Note下，还启用了:utf8 8。有关更多信息，请参见PerlIO::encoding。
下面是一个测试脚本：
use feature qw(say);
use strict;
use warnings;
my $fn = 'test.txt';
for my $mode ('>', '>:encoding(utf8)' ) {
open
浏览 3提问于2015-07-09得票数 5
回答已采纳
下列代码按预期工作：
use feature qw(say);
use strict;
use warnings;
use open qw/:std IN :encoding(utf-8) OUT :utf8/;
say join ' ', (PerlIO::get_layers(\*STDOUT));
my $pid = fork();
die "fork() failed: $!" unless defined $pid;
if ($pid == 0) {
say join ' ', (PerlIO::get_layers(\
浏览 0提问于2019-04-19得票数 2
回答已采纳
2回答
这是的第2部分问题。
所以我尝试了:encode功能，但一点也没成功。
use Encode;
use utf8;
# Should print: iso-8859-15
print "Latin-9 Encoding: ".find_encoding("latin9")->name."\n";
my $encUK = encode("iso-8859-15", "UK €");
print "Encoded UK: ".$encUK."\n";
结果：
Encoded
浏览 5提问于2010-06-15得票数 1
回答已采纳
我在Perl中有一个非常简单的脚本： use JSON;
use open qw/ :std :encoding(utf8) /;
#my $ref = JSON::decode_json($json_contents);
my $path = "/home/chambres/web/x.org/public_html/cgi-bin/links/admin/booking_import/import/file.json";
my $json_contents = slurp_utf8_file($path);
my $ref = JSON->new->
浏览 29提问于2019-02-05得票数 2
回答已采纳
1回答
我有一个CSV文件，比如win.csv，它的文本是用windows-1252编码的。首先，我在utf8中使用iconv来实现它。
$iconv -o test.csv -f windows-1252 -t utf-8 win.csv
然后，我用下面的Perl脚本(utfcsv.pl)读取转换后的CSV文件。
#!/usr/bin/perl
use utf8;
use Text::CSV;
use Encode::Detect::Detector;
my $csv = Text::CSV->new({ binary => 1, sep_char => ';'
浏览 0提问于2015-05-30得票数 4
回答已采纳
我正在Windows 7上运行Active Perl 5.14。我正在尝试编写一个程序，该程序将读入一个转换表，然后处理一个文件，并将某些模式替换为其他模式-以上所有内容都是Unicode (UTF-8)。以下是程序的开始部分：
#!/usr/local/bin/perl
# Load a conversion table from CONVTABLE to %ConvTable.
# Then find matches in a file and convert them.
use strict;
use warnings;
use Encode;
use 5.014;
use utf8;
浏览 0提问于2012-02-16得票数 4
回答已采纳
用这个输入文件
<?xml version="1.0" encoding="UTF-8"?>
<entry>
<title>ú</title>
</entry>
而这个密码，
my $raw_xml = read_file("test.xml", binmode => 'raw');
print "$raw_xml\n";
$raw_xml =~ /<title>(.*?)</;
print "Regex finds
浏览 5提问于2016-08-11得票数 1
回答已采纳
1回答
这个问题的根本原因是我试图为Perl编写一个新的选项/参数处理模块()的测试。当然，这涉及到解析@ARGV，这是我根据问题的答案所做的。这在I18N::Langinfo::CODESET是defined1的系统上工作得很好。
在没有langinfo(CODESET)的系统上，我想至少在观察到的行为基础上尽最大努力。然而，到目前为止，我的测试表明，有些系统甚至无法将unicode参数正确地传递给外部脚本。
在各种系统中，"test_script“是一个仅仅执行print Dumper(@ARGV)的Perl脚本，我设法在这些系统上运行了如下所示
use utf8;
my $utf8
浏览 6提问于2012-06-20得票数 7
档案目录：
/home/wh/perlstudy/perl2/Person/Student.pm
/home/wh/perlstudy/perl2/Person/person.pl
Student.pm
package Student;
use strict;
use warnings FATAL => 'all';
# use utf8;
# binmode(STDIN,"encoding(gbk)");
sub new
{
my $class = shift;
my $self = {
_name => shift
浏览 1提问于2021-04-30得票数 3
回答已采纳
基本上我有一个数据库，我从那里得到$lastname，$firstname，$rid，$since，$times和$ip。
我使用Perl脚本对数据进行格式化，以便通过电子邮件发送。由于$lastname和$firstname可以包含特殊字符(例如ä、ü、？、é、...)我首先对字符串进行解码。
my $fullname = decode("utf8", $lastname) . ', ' . decode("utf8", $firstname);
my $send = swrite(<<'END', $ip, $fu
浏览 5提问于2009-08-19得票数 4
回答已采纳
4回答
为什么打印的是U而不是Ü
#!/usr/bin/env perl
use warnings;
use 5.014;
use utf8;
binmode STDOUT, ':utf8';
use charnames qw(:full);
my $string = "\N{LATIN CAPITAL LETTER U}\N{COMBINING DIAERESIS}";
while ( $string =~ /(\X)/g ) {
say $1;
}
# Output: U
浏览 0提问于2012-02-24得票数 7
回答已采纳
我有下面的脚本，它在两个不同的Perl安装上的行为不同。一个是Perl 5.8.5，另一个是Perl 5.8.8。
下面是脚本：
#!/usr/bin/perl
use FindBin(qw($Bin));
use lib $Bin;
use lib "$Bin/../lib";
use XML::LibXML;
use strict; # quote strings, declare variables
use warnings; # on by default
use warnings qw(FATAL utf8); # fatalize enco
浏览 4提问于2012-11-20得票数 2
回答已采纳
如果我运行下面的Perl程序：
perl -e 'use utf8; print "鸡\n";'
我得到这样的警告：
Wide character in print at -e line 1.
如果我运行这个Perl程序：
perl -e 'print "鸡\n";'
我没有收到任何警告。
我认为use utf8需要在Perl脚本中使用UTF-8字符。为什么这不起作用，我该如何修复它？我使用的是Perl 5.16.2。如果这是一个文件，而不是命令行上的一行程序，我也会遇到同样的问题。
浏览 2提问于2013-03-05得票数 90
回答已采纳
当我从windows命令行手动调用pdflatex时，它会生成所需的pdf。相反，当我从perl脚本调用pdflatex时，它没有：
system("pdflatex $fileName");
。。结果：
Sorry, but pdflatex did not succeed.
You may want to visit the MiKTeX project page, if you need help.
utf8 "\x80" does not map to Unicode at C:/strawberry-perl/perl/site/lib/Encode
浏览 1提问于2016-02-02得票数 0
我对Perl和编码实用化有问题。
(我在任何地方都使用utf-8，在输入、输出、perl脚本本身。我不想使用其他的编码，从来没有。)
然而。当我写
binmode(STDOUT, ':utf8');
use utf8;
$r = "\x{ed}";
print $r;
我看到字符串"“(这是我想要的--以及什么是U+00ED unicode char)。但是当我像这样添加“使用编码”时
binmode(STDOUT, ':utf8');
use utf8;
use encoding 'utf8';
$r = "\x
浏览 7提问于2011-03-19得票数 7
回答已采纳
术语：：大小模块混淆了编码。我怎么才能解决这个问题？
#!/usr/bin/env perl
use warnings; use strict;
use 5.010;
use utf8;
binmode STDOUT, ':encoding(UTF-8)';
use Term::Size;
my $string = 'Hällö';
say $string;
my $columns = ( Term::Size::chars *STDOUT{IO} )[0];
say $columns;
say $string;
输出：
H ll
140
H �ll�
浏览 1提问于2010-03-21得票数 1
回答已采纳
下面是一些代码，它们并没有完成我希望它做的事情：
#!/usr/bin/perl -w
use utf8;
binmode STDOUT, ":utf8";
# open a filehandle to a file that contains a single line of text: Hello \x{2744}!
open (H, "<:encoding(UTF-8)", "test.txt") || die $!;
while(<H>) {
$line = $_;
chomp($line);
浏览 0提问于2020-04-19得票数 1
2回答
在提示输入密码时，是否可以通过配置prompt，使输入不会添加到历史记录中？
#!/usr/local/bin/perl
use warnings;
use strict;
use 5.10.1;
use utf8;
use open qw( :encoding(UTF-8) :std );
use IO::Prompter;
my $password = prompt( 'Password: ', -echo => '' );
say $password;
$password = prompt( 'Password: ', -echo
浏览 0提问于2013-01-15得票数 3
回答已采纳
2回答
我有一个maven项目，在我的父pom中，字符编码被设置为UTF-8。
<plugin>
<artifactId>maven-compiler-plugin</artifactId>
<version>2.3.2</version>
<configuration>
<source>1.7</source>
<target>1.7</target>
<encoding>UTF
浏览 3提问于2013-08-15得票数 2
1回答
通过“掌握perl”的方法，我已经覆盖了"Encode"-module的"encode"-function。有没有一种更短的方法来使encode-utf8-warning致命？
#!/usr/bin/env perl
use warnings;
use 5.012;
binmode STDOUT, ':encoding(utf-8)';
BEGIN {
use Encode;
no warnings 'redefine';
*Encode::encode = sub ($$;$) {
my
浏览 2提问于2011-03-02得票数 0
回答已采纳
我正在尝试将输出从unix命令输出到文件句柄(输出文件)。最初，我的代码是这样的：
open (OUT,'>',$out)|| die "cannot open $out";
my $file =`cut -f $list $in`;
print OUT $file;
close OUT;
它给了我一个“分段错误”错误消息，这对于perl脚本来说是非常罕见的.我在第二行和第三行的下面搜索并做了一个小小的更改，方法是将输出更改为数组@file，而不是变量$file，不知怎么的，它起作用了！
open (OUT,'>',$out)|| d
浏览 3提问于2014-01-26得票数 1
回答已采纳
我有很多有西里尔文件名的文件，例如Deceasedя0я0.25я3.xgboost.json
我用一个函数读取这些文件：
use Devel::Confess 'color'
use utf8;
use autodie ':all';
use open ':std', ':encoding(UTF-8)';
sub json_file_to_ref {
my $json_filename = shift;
open my $fh, '<:raw', $json_filename; # Re
浏览 1提问于2021-03-11得票数 3
回答已采纳
下面是一个没有特殊字符的简单文本文件，名为utf-8.txt，内容如下。
foo bar baz
one two three
新行遵循unix约定(一个字节)，因此文件的整个大小为26 = 11 + 1 + 13 +1 (11 = foo bar baz，13 = one two three )。
如果我使用以下perl脚本读取该文件
use warnings;
use strict;
open (my $f, '<', 'utf8.txt');
<$f>;
seek($f, -4, 1);
my $xyz = <$f>;
pri
浏览 3提问于2016-04-26得票数 3
如何使用perl脚本打开包含CJK字符的文件：
use utf8;
use open ':encoding(utf8)';
binmode STDOUT, ':utf8';
上面的代码是用来打开文件的，但是我找不到CJK字符及其空字符。输入文件包含文本：
\para[para]Details of the electronic structure of the metal the loss to
electron-hole-pair excitations \characters{刘安雯} only
depends weakly on the metal. T
浏览 1提问于2018-04-19得票数 0
回答已采纳
我正在试用$*ARGFILES.handles，它似乎以二进制模式打开文件。
我正在编写一个zip-merge程序，它打印每个文件中的一行，直到没有更多的行可读。
#! /usr/bin/env perl6
my @handles = $*ARGFILES.handles;
# say $_.encoding for @handles;
while @handles
{
my $handle = @handles.shift;
say $handle.get;
@handles.push($handle) unless $handle.eof;
}
我像这样调用它: zip-
浏览 36提问于2018-12-06得票数 7
2回答
我对编码感到困惑：：猜。假设这是我的perl代码：
use strict;
use warnings;
use 5.18.2;
use Encode;
use Encode::Guess qw/utf8 iso-8859-1/;
use open IO => ':encoding(UTF-8)', ':std';
my $str1 = "1 = educa\x{c3}\x{a7}\x{c3}\x{a3}o";
my $str2 = "2 = educa\x{e7}\x{e3}o";
say "A: ".
浏览 1提问于2018-11-04得票数 1
在Perl中，如何将@ARGV的元素视为UTF8？
目前，我正在使用以下变通方法。
use Encode qw(decode encode);
my $foo = $ARGV[0];
$foo = decode("utf-8", $foo);
。。这是可行的，但不是很优雅。
我使用的是Perlv5.8.8，它是从bashv3.2.25调用的，LANG设置为en_US.UTF-8。
浏览 0提问于2010-01-10得票数 18
回答已采纳
尝试在FastCGI下运行旧的CGI脚本。不带额外参数的打印会给出正确的输出：print $q->div( $q->param("text") )
但是，当打印出CGI-methods print $q->div( {-id=>"id"}, $q->param("text") )的额外参数哈希时，它会破坏UTF-8格式的数据(‘óäöüžš’->‘’)
只有CGI参数才会发生这种情况，在脚本定义的变量中可以正常工作(示例3和4)。在普通的CGI (使用"-utf8"-flag )下，一切都很完美
浏览 3提问于2011-02-15得票数 3
回答已采纳
我需要将Fraktur符号转换为命名实体：
my $input = ", , is a symbols of fraktur";
预期产出：
$output = "𝔄, 𝔅, 𝔇 is a symbols of fraktur";
代码：
use Win32;
use open ':encoding(utf8)';
binmode STDOUT, ':utf8';
my %fraktursChr = ("𝔄" => "", &
浏览 2提问于2016-11-21得票数 0
回答已采纳
我正在用Perl解析一个非常大的日志文件。守则是：
open($input_handle, '<:encoding(UTF-8)', $input_file);
while (<$input_handle>) {
...
}
close($input_handle);
但是，有时日志文件包含错误的字符，我收到以下消息：
utf8 "\xD0" does not map to Unicode at log_parser.pl line 32, <$input_handle> l
浏览 5提问于2015-02-23得票数 1
回答已采纳
1回答
有以下代码：
#!/usr/bin/env perl
use 5.016;
use warnings;
use autodie;
use Path::Tiny;
use Encode;
use Benchmark qw(:all);
my $cnt = 10_000;
my $utf = 'utf8.txt';
my $res = timethese($cnt, {
'open-UTF-8' => sub {
open my $fhu, '<:encoding(UTF-8)', $utf;
浏览 1提问于2015-07-23得票数 11
回答已采纳
在UTF-8中，为0xe282 in。
我试图在perl中使用一个字符串，并将UTF-8字符输出到STDOUT。
因此，我将我的脚本设置为UTF-8和。
我把我的STDOUT设置在的UTF-8中.
一个示例脚本是：
use utf8;
binmode STDOUT, ':utf8';
print "I owe you 160\x{20ac}\n";
print "I owe you 80\xe2\x82\xac\n"; # UTF-8 encoding?
\x{codepoint}工作正常，但是编码UTF-8会给出一个错误：
I owe you
浏览 8提问于2016-07-11得票数 1
回答已采纳
我试图在perl中操作csv。
输入csv在列数据中有一些新的行字符，这会导致其他外部程序失败。我在下面编写了Perl脚本，对csv进行预处理以删除这些字符。
use strict;
use warnings 'all';
# Using Text::CSV file to allow
# full CSV Reader and Writer
use Text::CSV;
use open ":std", ":encoding(UTF-8)";
my $file = $ARGV[0] or die;
my $csv = Text::
浏览 7提问于2020-04-01得票数 1
回答已采纳
为了在Perl中处理utf-8格式的文本，我在使用的每个流上都使用了binmode(<file-handle>, ":encoding(UTF-8)");。我刚发现
use open ( ":encoding(UTF-8)", ":std" );
可以用来在全球范围内做同样的事情。这很棒，因为它意味着更少的重复代码。
但是现在我遇到了一个问题:我希望在我的脚本-utf8中有一个命令行选项，它只在提供时才会将所有内容转换为utf-8。因为use open是一个杂注，所以它是词法作用域的，我不能把它放在if语句中，但是如果没有if语句，它
浏览 5提问于2019-07-20得票数 0
回答已采纳
在有人告诉我RTFM之前，我必须说--我已经仔细研究过了：
还有很多其他人(比如和其他人)-但是
所以，基本代码：
use 5.014; #getting 'unicode_strings' feature
use uni::perl; #turning on many utf8 things
use Unicode::Normalize qw(NFD NFC);
use warnings;
while(<>) {
chomp;
my $data = NFD($_);
sa
浏览 3提问于2012-05-30得票数 10
回答已采纳
如果我想用python来做这件事，代码就像这样：
#!usr/bin/python
import os
import sys
reload(sys)
sys.setdefaultencoding('utf-8')
path = 'H:\\Dolly. - 。.〆bear小熊-葉鏗然-ω·）~☆ぼんじ'
print(path)
os.mkdir(path)
但是我尝试使用perl，它不起作用。
#!/usr/bin/perl
use File::Path;
use utf8;
path = 'H:\\Dolly. - 。.〆bear小熊-葉鏗然-ω·）~
浏览 0提问于2011-04-07得票数 2
回答已采纳
1回答
这个脚本给我两次相同的输出。在两个say之间是否存在无法在utf8 encode和decode中幸存下来的编码？
#!/usr/bin/env perl
use warnings;
use 5.16.1;
use Encode qw/encode decode/;
my $my_encoding = 'ISO-8859-7';
binmode STDOUT, ":encoding($my_encoding)";
my $var = "\N{GREEK SMALL LETTER TAU}";
$var .= "\N{GREEK SMAL
浏览 0提问于2012-10-06得票数 3
回答已采纳
1回答
当我use locale时，我的区域设置中的一些字符(et_EE.UTF-8)与\w不匹配，我没有看到任何理由。
除了ASCII之外，爱沙尼亚语还使用了六个字符：
甘泉(šž)
在下面的测试脚本中，我在$string中使用它们，并附加了三个特殊字符ðŋц (这些字符不属于爱沙尼亚字母)。
use feature 'say';
use POSIX qw( locale_h );
{
use utf8;
my $string = "õäöüšž ðŋц";
binmode STDOUT, ":encoding(UTF-8)";
浏览 2提问于2013-02-13得票数 1
回答已采纳
当某些元素的名称不是英文时，我如何使用？
我用草莓Perl。
我从网络上得到了employees.xml和train_xml.pl，它们工作得很好。
但是，当我添加一些汉字时，会出现以下错误：
Wide character in die at D:/Strawberry/perl/site/lib/XML/XPath/Parser.pm line 189.
查询:/employees/employee@age=“30”/工作..............................^^^无效查询(我认为)
我怎么才能解决这个问题？
employees.xml
<?xml ver
浏览 0提问于2017-07-25得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
