Perl中可以使用什么样的语法糖来减少l / rvalue运算符的代码与if语句?

前端之家收集整理的这篇文章主要介绍了Perl中可以使用什么样的语法糖来减少l / rvalue运算符的代码与if语句?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
有一堆,因为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,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?

还有什么值得添加的吗?什么其他条件集变量可用来减少代码?还有什么缺点?

解决方法

使用低优先级和/或关键字,可以更清楚地使用您的问题的这些结构:
$c and return $r;    # return $r if ($c);
$c or return $r;     # return $r unless ($c);
$c and $r = $s;      # $r = $s if ($c);

与语句修饰符控制字不同,和/或是不同的是,和/或可以链接到复合表达式中.

语法糖的另一个有用工具是使用for / foreach循环作为单一值的分配器.考虑以下几点:

$var = $new_value if defined $new_value;

VS

defined and $var = $_ for $new_value;

或者像

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

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

也可以以这种方式使用地图函数,并具有可以使用的返回值.

原文链接:https://www.f2er.com/Perl/172784.html

猜你在找的Perl相关文章