Comment éviter des informations supplémentaires à imprimer

Question

Dans mon code Perl, j'ai utilisé la ligne suivante:

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

Dans la sortie, je reçois un message suivant:

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

Bien que je ne suis pas en utilisant strict. Comment puis-je éviter que ce message soit imprimé en sortie?

Answer 1

Utilisez la fonction defined:

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

Ou une forme plus courte: (. Et use strict, vraiment)

$host=$hostname unless $host; 

Answer 2

Cet opérateur peut aider: defined-or operator

$host = $host // $hostname; 

si $host est définie même sa valeur est '', 0, '0', il utilisera $host comme valeur, que si $host est undef, $host vous obtiendrez la valeur

Answer 3

du $hostname Je pense que vous voulez

$host //= $hostname; 

// est l'opérateur "défini ou". // = est sa version d'affectation.