Лучший способ избежать «не является числовым в числовом экваторе (==)» - предупреждение

Question

#!/usr/bin/env perl 
use warnings; 
use 5.12.2; 

my $c = 'f'; # could be a number too 

if ($c eq 'd' || $c == 9) { 
    say "Hello, world!"; 
} 

Каков наилучший способ избежать «аргумента» f »не является числовым в числовом eq (==) на ./perl.pl строка 7. '- предупреждение?
Я предполагаю, что в этом случае я мог бы использовать «eq» два раза, но это не выглядит хорошо.

Answer 1

Не знаю, почему вы хотите, чтобы избежать предупреждения. Предупреждение говорит вам, что в вашей программе есть потенциальная проблема.

Если вы хотите сравнить число со строкой, содержащей неизвестные данные, то вам придется либо использовать «eq» для сравнения, либо очистить данные каким-либо образом, чтобы вы знали это выглядит как номер.

Answer 2

Очевидным способом избежать предупреждения о сравнении нецифрового номера с цифровым является не для этого! Предупреждения существуют для вашей выгоды - их нельзя игнорировать или работать.

Чтобы ответить на то, что это лучший путь вам необходимо предоставить больше контекста - то есть то, что действительно представляет $c, и почему это нужно сравнить это сделать 'd' или 9 (и почему бы не использовать $c eq '9')?

Answer 3

use Scalar::Util 'looks_like_number';  

if ($c eq 'd' || (looks_like_number($c) && $c == 9)) { 
    say "Hello, world!"; 
} 

Вы также можете отключить эту категорию предупреждений временно:

{ 
    no warnings 'numeric'; 
    # your code 
} 

Answer 4

Используя регулярное выражение, чтобы увидеть, если это число:

if(($num=~/\d/) && ($num >= 0) && ($num < 10)) 
{ 
    # to do thing number 
}