在Perl中没有得到欲望输出

Question

my $utfSmiley = pack 'U*', 0x263A;
#print "length of \$utfSmiley = ", length($utfSmiley),
 #     ", length of 0x263A = ", length(0x263A), "\n";
 open my $fh, '<:encoding(UTF-8)', $utfSmiley; 
print  binmode(STDOUT, ":utf8"),$utfSmiley,"\n";

输出：

1☺ #how to remove this 1

在我的输出中有1。如何删除它以及原因是什么，或者我的代码中有什么问题。请告诉我 你的答案将会受到赞赏。

Answer 1

my $utfSmiley = pack 'U*', 0x263A;
# open my $fh, '<:encoding(UTF-8)', $utfSmiley; 

binmode(STDOUT, ":utf8");
print  $utfSmiley,"\n";

您正在使用binmode打印$utfSmiley的返回值。

perldoc binmode

  

成功时返回true，否则返回undef并设置$！