如何避免额外的信息被打印

Question

在我的Perl代码我用下面一行：虽然我不使用

Use of uninitialized value $host in string eq at cli.pl line 18. 

：

$host=$hostname if ($host eq undef); 

在我收到以下消息输出strict。我怎样才能避免这条消息被输出打印？

Answer 1

使用defined功能：

$host=$hostname if (!defined $host); 

或者更短的形式：（而use strict，真的）

$host=$hostname unless $host; 

Answer 2

此操作可能会有帮助：defined-or operator

$host = $host // $hostname; 

如果$host定义甚至它的价值是''，0，'0'，它将使用$host作为其值， 只有$host是undef，$host将得到$hostname的价值

Answer 3

我想你想

$host //= $hostname; 

//是“定义的”或“运算符”。 // =是其分配版本。