Perl中有哪些語法糖可用於減少l/rvalue運算符與if語句的代碼？

Question

這裏有一堆，因爲Perl是一種非常含糖的語言，但任何語言中最常用的語句都是if語句和設置值的組合。我認爲我發現了其中的很多，但仍然有一些差距。最終的目標將是沒有寫一個變量名不止一次：

這是我到目前爲止有：

$r ||= $s;   # $r = $s unless ($r); 
$r //= $s;   # $r = $s unless (defined $r); 
$r &&= $s;   # $r = $s if ($r); 
$r = $c ? $s : $t; # if ($c) { $r = $s } else { $r = $t } 
$c ? $r : $s = $t; # if ($c) { $r = $t } else { $s = $t } 
$r = $s || $t;  # if ($s) { $r = $s } else { $r = $t } 
$r = $s && $t;  # if ($s) { $r = $t } else { $r = $s = undef, 0, untrue, etc. } 
$c and return $r; # return $r if ($c); 
$c or return $r; # return $r unless ($c); 
$c and $r = $s;  # $r = $s if ($c); 
@$r{qw(a b c d)} # ($r->{a}, $r->{b}, $r->{c}, $r->{d}) 

有人還對「祕密運營商」一really interesting article，這裏顯示：

my @part = (
    'http://example.net/app', 
    ('admin' ) x!! $is_admin_link, 
    ($subsite) x!! defined $subsite, 
    $mode, 
    ($id  ) x!! defined $id, 
    ($submode) x!! defined $submode, 
); 

不過，我已經發現，從列表中缺少的是：

$r <= $s;     # read as "$r = min($r, $s);" except with short-circuiting 
$r = $s if (defined $s); # what's the opposite of //? 
$r and return $r   # can that be done without repeating $r? 

還有什麼值得添加的？還有哪些其他條件集變量可用於減少代碼？還有什麼遺漏？

Answer 1

從你的問題。這些結構可以使用低優先級and和or關鍵字一點點明確寫道：

$c and return $r; # return $r if ($c); 
$c or return $r;  # return $r unless ($c); 
$c and $r = $s;  # $r = $s if ($c); 

的關於and和的好消息與語句修飾符控制字不同，and和or可以鏈接成複合表達式。

另一個有用的語法糖工具是使用for/foreach循環作爲單個值的專題化器。考慮以下幾點：

$var = $new_value if defined $new_value; 

VS

defined and $var = $_ for $new_value; 

或事物，如：

$foo = "[$foo]"; 
$bar = "[$bar]"; 

$_ = "[$_]" for $foo, $bar; 

的map功能也可以以這種方式使用，並且具有可以使用一個返回值。

Answer 2

Perl中最大的功能之一是switch statement。這終於出現在Perl 5.10中。我只是用從文檔的例子：

use feature qw(say switch); #My preference 
#use feature ":5.10";  #This does both "say" and "switch" 

[...] 

given($foo) { 
    when (undef) { 
     say '$foo is undefined'; 
    } 
    when ("foo") { 
     say '$foo is the string "foo"'; 
    } 
    when ([1,3,5,7,9]) { 
     say '$foo is an odd digit'; 
     continue; # Fall through 
    } 
    when ($_ < 100) { 
     say '$foo is numerically less than 100'; 
    } 
    when (\&complicated_check) { 
     say 'a complicated check for $foo is true'; 
    } 
    default { 
     die q(I don't know what to do with $foo); 
    } 
} 

爲什麼O」爲什麼他們去given/when而不是switch/case就像你發現在大多數語言是一個謎給我。而且，爲什麼如果聲明是given/when，您是否在use features中指定爲switch？

唉，作出這些決定的人是比我更高的飛機，所以我沒有權利質疑這些燈具。

---

我避免了更奇特的東西，並堅持最簡單的理解語法。試想一下，誰有權通過你的代碼，並發現一個bug的人添加一個功能，它會更容易讓該人明白：

$r &&= $s; 

或

if ($r) { 
    $r = $s; 
} 

而且，也許我可能會實現我心裏想：

if (not defined $r) { 
    $r = $s; 
} 

而且，在這種情況下，我甚至說：

$r = $s if not defined $r; 

雖然我通常不喜歡post-fixed if語句，因爲人們在瀏覽代碼時傾向於忽略if部分。

Perl是在運行時編譯的，編譯器相當高效。所以，儘管編寫$r &&= $s的方式更酷，但賺取更多的極客點並且輸入的次數更少，但執行速度並不快。花費在代碼上的最多時間是維護它，所以我寧願跳過花哨的東西，併爲了可讀性。

順便說一句，當我想到句法糖，我想到了添加到該語言的東西，以提高可讀性。一個很好的例子是->操作：

${${${$employee_ref}[0]}{phone}}[0]; 

與

$employee_ref->[0]->{phone}->[0]; 

當然，如果你存儲的數據作爲參考，以列表的哈希列表，你可能會更好關閉使用面向對象的編碼。

Answer 3

$r = $r < $s ? $r : $s;：

$r = $s if $r > $s; 

或

use List::Util qw(min); 

    $r = min($r, $s); 

或：

sub min_inplace { 
     my $min_ref = \shift; 
     for (@_) { $$min_ref = $_ if $$min_ref > $_; } 
    } 

    min_inplace($r, $s); 

$r = $s if (defined $s);：

$r = $s // $r; 

$r = $t; $r = $s if (defined $s);：

$r = $s // $t; 

$r = !$s ? $s : $t;：

$r = $s && $t; 

Answer 4

還有左側三元運算符：

$cond ? $var1 : $var2 = "the value"; 

等同於：

if ($cond) { 
    $var1 = "the value"; 
} else { 
    $var2 = "the value"; 
} 

Answer 5

還有：

$hash{$key||'foo'} = 1; # if($key) { $hash{$key} = 1 } else { $hash{'foo'} = 1 }