undef值并打印它

Question

这是我第一次使用Perl。

在Perl线程中，如果上下文是标量，则threads->exit()子例程的返回值是undef值。

#!/usr/bin/perl
use threads;

$t=threads->create({"context"=>"scalar"},
                    sub { threads->exit();});
$re = $t->join();
print "##################\n";
print "$re\n\n";
print "##################\n";
print (undef) . "TES\n";
print "##################\n"

输出是：

##################


##################
##################

为什么要print "$re\\n\\n"; 打印已执行但未print (undef) . "TES\\n"; print (undef) . "TES\\n"; ？ 即使$re是undef 。

我做了一个测试，以确保$ re未定义。

#!/usr/bin/perl
use threads;

$t=threads->create({"context"=>"scalar"},
                    sub { threads->exit();});
$re = $t->join();
print "##################\n";
print "$re\n\n" if ! defined $re;
print "##################\n";
print (undef) . "TES\n";
print "##################\n"

我输出相同的输出。

Answer 1

print (undef) . "TES\n";

和...一样

(print (undef)) . "TES\n";

所以你用字符串连接print结果。

你想要的是什么

print ((undef) . "TES\n"); # or print undef() . "TES\n";