Làm cách nào để biết một biến có giá trị số trong Perl?

Có cách nào đơn giản trong Perl sẽ cho phép tôi xác định xem một biến nhất định có phải là số không? Một cái gì đó dọc theo dòng của:

if (is_number($x))
{ ... }

sẽ là lý tưởng. Một kỹ thuật không đưa ra cảnh báo khi công -wtắc đang được sử dụng chắc chắn được ưu tiên.

Sử dụng Scalar::Util::looks_like_number()sử dụng hàm look_like_number () của API Perl C bên trong, đây có lẽ là cách hiệu quả nhất để thực hiện việc này. Lưu ý rằng các chuỗi "inf" và "infinity" được coi là số.

Thí dụ:

#!/usr/bin/perl

use warnings;
use strict;

use Scalar::Util qw(looks_like_number);

my @exprs = qw(1 5.25 0.001 1.3e8 foo bar 1dd inf infinity);

foreach my $expr (@exprs) {
    print "$expr is", looks_like_number($expr) ? '' : ' not', " a number\n";
}

Cung cấp đầu ra này:

1 is a number
5.25 is a number
0.001 is a number
1.3e8 is a number
foo is not a number
bar is not a number
1dd is not a number
inf is a number
infinity is a number

Xem thêm:

• perldoc Scalar :: Util
• perldoc perlapi cholooks_like_number

Kiểm tra mô-đun CPAN Regexp :: Common . Tôi nghĩ rằng nó làm chính xác những gì bạn cần và xử lý tất cả các trường hợp cạnh (ví dụ: số thực, ký hiệu khoa học, v.v.). ví dụ

use Regexp::Common;
if ($var =~ /$RE{num}{real}/) { print q{a number}; }

Câu hỏi ban đầu là làm thế nào để biết một biến là số, không phải nếu nó "có một giá trị số".

Có một số toán tử có các chế độ hoạt động riêng biệt cho toán hạng số và chuỗi, trong đó "số" có nghĩa là bất kỳ thứ gì ban đầu là một số hoặc đã từng được sử dụng trong ngữ cảnh số (ví dụ: trong $x = "123"; 0+$x, trước khi bổ sung, $xlà một chuỗi, sau đó nó được coi là số).

Một cách để nói là:

if ( length( do { no warnings "numeric"; $x & "" } ) ) {
    print "$x is numeric\n";
}

Nếu tính năng bitwise được bật, &chỉ tạo một toán tử số và thêm một &.toán tử chuỗi riêng biệt , bạn phải tắt nó:

if ( length( do { no if $] >= 5.022, "feature", "bitwise"; no warnings "numeric"; $x & "" } ) ) {
    print "$x is numeric\n";
}

(bitwise có sẵn trong perl 5.022 trở lên và được bật theo mặc định nếu bạn use 5.028;trở lên.)

Một câu trả lời đơn giản (và có thể đơn giản) cho câu hỏi là nội dung của $xsố như sau:

if ($x  eq  $x+0) { .... }

Nó thực hiện một so sánh văn bản của bản gốc $xvới $xgiá trị được chuyển đổi thành giá trị số.

Thông thường xác thực số được thực hiện với các biểu thức chính quy. Mã này sẽ xác định xem thứ gì đó có phải là số hay không cũng như kiểm tra các biến không xác định để không đưa ra cảnh báo:

sub is_integer {
   defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
}

sub is_float {
   defined $_[0] && $_[0] =~ /^[+-]?\d+(\.\d+)?$/;
}

Đây là một số tài liệu đọc bạn nên xem.

Không hoàn hảo, nhưng bạn có thể sử dụng regex:

sub isnumber 
{
    shift =~ /^-?\d+\.?\d*$/;
}

Tôi không tin rằng có bất cứ điều gì có sẵn để làm điều đó. Để biết nhiều hơn những gì bạn từng muốn về chủ đề này, hãy xem Perlmonks khi phát hiện số

Có thể tìm thấy một regex mạnh mẽ hơn một chút trong Regexp :: Common .

Có vẻ như bạn muốn biết nếu Perl nghĩ một biến là số. Đây là một chức năng bẫy cảnh báo đó:

sub is_number{
  my $n = shift;
  my $ret = 1;
  $SIG{"__WARN__"} = sub {$ret = 0};
  eval { my $x = $n + 1 };
  return $ret
}

Một tùy chọn khác là tắt cảnh báo cục bộ:

{
  no warnings "numeric"; # Ignore "isn't numeric" warning
  ...                    # Use a variable that might not be numeric
}

Lưu ý rằng các biến không phải số sẽ được chuyển đổi âm thầm thành 0, đây có thể là điều bạn muốn.

rexep không hoàn hảo ... đây là:

use Try::Tiny;

sub is_numeric {
  my ($x) = @_;
  my $numeric = 1;
  try {
    use warnings FATAL => qw/numeric/;
    0 + $x;
  }
  catch {
    $numeric = 0;
  };
  return $numeric;
}

Thử đi:

If (($x !~ /\D/) && ($x ne "")) { ... }

Tôi thấy điều này thú vị mặc dù

if ( $value + 0 eq $value) {
    # A number
    push @args, $value;
} else {
    # A string
    push @args, "'$value'";
}

Cá nhân tôi nghĩ rằng cách để đi là dựa vào bối cảnh bên trong của Perl để đưa ra giải pháp chống đạn. Một regexp tốt có thể khớp với tất cả các giá trị số hợp lệ và không có giá trị nào không phải là số (hoặc ngược lại), nhưng vì có một cách sử dụng cùng một logic mà trình thông dịch đang sử dụng nên sẽ an toàn hơn khi dựa vào đó trực tiếp.

Khi tôi có xu hướng chạy các tập lệnh của mình -w, tôi phải kết hợp ý tưởng so sánh kết quả của "giá trị cộng với 0" với giá trị ban đầu với no warningscách tiếp cận dựa trên @ysth:

do { 
    no warnings "numeric";
    if ($x + 0 ne $x) { return "not numeric"; } else { return "numeric"; }
}

Bạn có thể sử dụng Biểu thức chính quy để xác định xem $ foo có phải là một số (hay không).

Hãy xem ở đây: Làm cách nào để xác định xem một đại lượng vô hướng là một số

if (đã định nghĩa $ x && $ x! ~ m / \ D /) {} hoặc $ x = 0 nếu! $ x; nếu ($ x! ~ m / \ D /) {}

Đây là một sự thay đổi nhỏ trong câu trả lời của Veekay nhưng hãy để tôi giải thích lý do của tôi cho sự thay đổi.

Thực hiện regex trên một giá trị không xác định sẽ gây ra lỗi và sẽ khiến mã thoát trong nhiều nếu không phải hầu hết các môi trường. Kiểm tra xem giá trị có được xác định hay không hoặc đặt trường hợp mặc định như tôi đã làm trong ví dụ thay thế trước khi chạy biểu thức, ít nhất sẽ lưu nhật ký lỗi của bạn.