Có tương đương Perl với toán tử kết hợp null (??) trong C# không?

Question

Tôi bắt đầu thực sự thích nhà điều hành ?? của C#. Và tôi khá quen với thực tế, rằng ở đó có thứ gì đó tiện dụng trong một số ngôn ngữ, nó có lẽ cũng có trong Perl.

Tuy nhiên, tôi không thể tìm thấy ?? tương đương trong Perl. Có cái gì không?

Answer 1

Từ 5.10 có toán tử //, tương đương ngữ nghĩa nếu bạn xem khái niệm undef trong Perl tương đương với khái niệm null trong C#.

Ví dụ A:

my $a = undef; 
my $b = $a // 5; # $b = 5; 

Ví dụ B:

my $a = 0; 
my $b = $a // 5; # $b = 0; 

Answer 2

Không phải là tôi biết.

Perl không thực sự là một người dùng lớn của khái niệm rỗng. Nó có một thử nghiệm cho dù một biến là không xác định. Không có nhà điều hành đặc biệt như ?? Mặc dù vậy, nhưng bạn có thể sử dụng toán tử điều kiện ?: với một thử nghiệm undef và nhận được khá gần.

Và tôi cũng không thấy bất kỳ điều gì trong perl operator list.

Answer 3

Trên thực tế, ngắn mạch OR cũng sẽ làm việc khi đánh giá undef:

my $b = undef || 5; # $b = 5; 

Tuy nhiên, nó sẽ thất bại khi đánh giá 0 nhưng đúng:

my $b = 0 || 5; # $b = 5; 

Answer 4

Như Adam says, Perl 5.10 có các nhà điều hành // rằng kiểm tra khai thác bên trái của nó đối với định nghĩa-Ness thay vì sự thật:

use 5.010; 

my $value = $this // $that; 

Nếu bạn đang sử dụng một phiên bản cũ của Perl, đó là một chút lộn xộn . Các || sẽ không làm việc:

my $value = $this || $that; 

Trong trường hợp đó, nếu $this là 0 hoặc chuỗi rỗng, cả hai đều được xác định, bạn sẽ nhận được $that. Để khắc phục điều đó, thành ngữ là sử dụng các nhà điều hành có điều kiện, do đó bạn có thể làm kiểm tra của riêng bạn:

my $value = defined($this) ? $this : $that; 

Answer 5

Câu hỏi ngụ ý bất kỳ số lượng các đối số, vì vậy câu trả lời ngụ ý một chương trình con:

Ở đây bạn sẽ có được nó - sẽ trả lại giá trị được xác định/không trống đầu tiên của một danh sách:

sub coalesce { (grep {length} @_)[0] }