运算符//在perl中做什么？

我已经想出了一个如下类型的代码： $avr=（$values[0]/$values[1]）eq'-'？0:（$values[0]/$values[1]）

“/”在这里有什么意思吗

EXPR1 // EXPR2

相当于

defined(EXPR1) ? EXPR1 : EXPR2

EXPR1只计算一次

---

可能比

my $var = ($values[0] // $values[1]) eq '-' ? 0 : ($values[0] // $values[1]);

---

我得到了完美的答案。谢谢@ysth

my $var = ($values[0] // $values[1]) eq '-' ? 0 : ($values[0] // $values[1]);