Как избежать распечатки дополнительной информации

Question

В моем Perl-коде я использовал следующую строку:

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

В выводе я получаю следующее сообщение:

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

Хотя я не использую strict.Как можно избежать вывода этого сообщения на печать?

Answer 1

Используйте функцию defined:

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

Или более короткая форма:

$host=$hostname unless $host;

(А use strict, правда.)

Answer 2

Этот оператор может помочь: определенный или оператор

$host = $host // $hostname; 

, если определено $host, даже если его значение равно '', 0, '0', онобудет использовать $host в качестве значения, только если $host равно undef, $host получит значение $hostname

Answer 3

Я думаю, что вы хотите

$host //= $hostname;

// - это оператор "определенный или".// = версия присвоения.