Question

[注意：这个问题是我earlier question的衍生产品。当我发布之前的问题时，我没有意识到它实际上是在询问两个不同的问题。感谢tripleee的评论，我找到了其中一个的答案。下面的问题仅限于剩下的问题。]

我将使用下面的简短演示脚本来说明问题。

# -*- coding: utf-8 -*-
use strict;
use feature 'unicode_strings';
use POSIX 'locale_h';
use locale;
use utf8;

setlocale( LC_CTYPE, 'de_DE.UTF-8' );
binmode( STDOUT, ':utf8' );

my $non_ascii = 'ßäöüÄÖÜ';
print "$non_ascii\n";

my @non_ascii = split //, $non_ascii;
print "$_\n" for @non_ascii;

$DB::single = 1; 1;  # return control to DB

（最后一行实际上是一个断点。）

好的，现在我在Perl调试器下运行它：

% perl -d dbtest.pl

Loading DB routines from perl5db.pl version 1.37
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(dbtest.pl:8):            setlocale( LC_CTYPE, 'de_DE.UTF-8' );
  DB<1> c
ßäöüÄÖÜ
ß
ä
ö
ü
Ä
Ö
Ü
main::(dbtest.pl:17):           $DB::single = 1; 1;  # return control to DB
  DB<1>

到目前为止一直很好：脚本产生了预期的输出，现在调试器已进入单步模式，正在等待输入。

此时，print仍然产生正确的（即人类可读的）输出：

  DB<1> print $non_ascii
ßäöüÄÖÜ
  DB<2> print "$_\n" for @non_ascii
ß
ä
ö
ü
Ä
Ö
Ü
  DB<3>

但是，如果我现在使用x指令来漂亮地打印@non_ascii数组的内容，则输出看起来不再正确：

  DB<3> x \@non_ascii
0  ARRAY(0x7fab6196f790)
   0  '\337'
   1  '\344'
   2  '\366'
   3  '\374'
   4  '\304'
   5  '\326'
   6  '\334'
  DB<4> binmode( STDOUT, ':utf8' );
  DB<5> x \@non_ascii
0  ARRAY(0x7fab6196f790)
   0  '\337'
   1  '\344'
   2  '\366'
   3  '\374'
   4  '\304'
   5  '\326'
   6  '\334'
  DB<6>

如何让x产生人类可读的输出？

Answer 1

好的，我明白了。解决方案是

  DB<10> binmode( $DB::OUT, ':utf8' )
  DB<11> x \@non_ascii
0  ARRAY(0x7fdae891e2a8)
   0  'ß'
   1  'ä'
   2  'ö'
   3  'ü'
   4  'Ä'
   5  'Ö'
   6  'Ü'
  DB<12>

可以将binmode( $DB::OUT, ':utf8' )设置放在一个.perldb中，以使其持久。

使用调试器的x指令来打印非ASCII字符串

1 个答案: