Cách tốt nhất để tránh "không phải là số trong số eq (==)" - cảnh báo

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!"; 
} 

Cách tốt nhất để tránh 'Đối số' f "không phải là số trong số eq (==) tại ./perl.pl dòng 7 .'- cảnh báo?
Tôi giả sử trong trường hợp này tôi có thể sử dụng "eq" hai lần, nhưng điều đó không tốt.

Answer 1

Không chắc lý do tại sao bạn muốn tránh các cảnh báo. Cảnh báo cho bạn biết rằng có sự cố tiềm ẩn trong chương trình của bạn.

Nếu bạn định so sánh một số với chuỗi chứa dữ liệu không xác định, thì bạn sẽ phải sử dụng 'eq' để so sánh hoặc xóa dữ liệu theo cách nào đó để bạn biết trông giống như một con số.

Answer 2

Cách rõ ràng để tránh cảnh báo về việc so sánh một số không với số là không làm điều đó! Cảnh báo có lợi cho bạn - họ không nên bỏ qua, hoặc làm việc xung quanh.

các tốt nhất cách bạn cần cung cấp bối cảnh nhiều hơn để trả lời là gì - ví dụ: những gì $c đại diện, và tại sao nó cần thiết để so sánh nó làm 'd' hoặc 9 (và tại sao không sử dụng $c eq '9')?

Answer 3

use Scalar::Util 'looks_like_number';  

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

Bạn cũng có thể vô hiệu hóa loại này cảnh báo tạm thời:

{ 
    no warnings 'numeric'; 
    # your code 
} 

Answer 4

Sử dụng một biểu thức chính quy để xem nếu đó là một con số:

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