编码 - 字符串字节长度

发布于 2025-02-09 01:40:30 字数 1020 浏览 1 评论 0原文

file1.pl：

use strict;
use warnings;
use Encode;

my @flist = `svn diff --summarize ...`;

foreach my $file (@flist) {
  my $foo = "$one/$file";
  use bytes;
  print(bytes::length($one)."\n");
  print(bytes::length($file)."\n");
  print(bytes::length($foo)."\n");
}
# 76
# 31
# 108

我已经使用相同的主逻辑和file2.pl。但是在file2.pl中，输出为：

# 76
# 31
# 110 <-- ?

两个文件具有相同的编码（ISO-8859-1）。对于与file1.pl中的结果相同的结果，我要

my $foo = "$one/".decode('UTF-8', $file);

在file2.pl中使用。 decode（'utf-8'，$ file） in file2.pl中的decode（'utf-8'，$ file）的原因可能是什么？似乎与如果我不解码？怎么办？谢谢。

Perl v5.10.1

原文

I've file file1.pl:

use strict;
use warnings;
use Encode;

my @flist = `svn diff --summarize ...`;

foreach my $file (@flist) {
  my $foo = "$one/$file";
  use bytes;
  print(bytes::length($one)."\n");
  print(bytes::length($file)."\n");
  print(bytes::length($foo)."\n");
}
# 76
# 31
# 108

and file2.pl with the same main logic. But in file2.pl the output is:

# 76
# 31
# 110 <-- ?

Both files have the same encoding (ISO-8859-1). For the same result as in file1.pl I've to use

my $foo = "$one/".decode('UTF-8', $file);

in file2.pl. What could be the reason for that difference or the requirement of decode('UTF-8', $file) in file2.pl? Seems to be related to What if I don't decode? but in which manner and only in file2.pl? Thx.

Perl v5.10.1

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

纸伞微斜 2025-02-16 01:40:30

不要使用字节。

强烈劝阻除调试目的以外的任何其他方法。

bytes ::长度获得字符串内部存储的长度。没用的。

可能有什么原因

$一个和$ file包含使用不同内部存储格式存储的字符串。需要转换一个以进行连接。

use strict;
use warnings;
use feature qw( say );
use bytes qw( );
use Encode qw( encode );

sub dump_lengths {
   my $s = shift;
   say
      join " ",
         length( $s ),
         length( encode( "UTF-8", $s ) ),
         bytes::length( $s );
}
                         # +------ Length of string
my $x = chr( 0xE9 );     # | +---- Length of its UTF-8 encoding
my $y = chr( 0x2660 );   # | | +-- Length of internal storage
                         # | | |
dump_lengths( $x );      # 1 2 1
dump_lengths( $y );      # 1 3 3

my $z = $x . $y;

dump_lengths( $z );      # 2 5 5

Don't use bytes.

Use of this module for anything other than debugging purposes is strongly discouraged.

bytes::length gets the length of the internal storage of a string. It's useless.

What could be the reason for that difference

$one and $file contained strings stored using different internal storage formats. One needed to be converted for a concatenation to occur.

use strict;
use warnings;
use feature qw( say );
use bytes qw( );
use Encode qw( encode );

sub dump_lengths {
   my $s = shift;
   say
      join " ",
         length( $s ),
         length( encode( "UTF-8", $s ) ),
         bytes::length( $s );
}
                         # +------ Length of string
my $x = chr( 0xE9 );     # | +---- Length of its UTF-8 encoding
my $y = chr( 0x2660 );   # | | +-- Length of internal storage
                         # | | |
dump_lengths( $x );      # 1 2 1
dump_lengths( $y );      # 1 3 3

my $z = $x . $y;

dump_lengths( $z );      # 2 5 5

回复收藏 0 原文

~没有更多了~