perl - 有没有办法做一个“反向”.=？

Question

我想在前面添加 0 $num：

$num = "0".$num;

这很好用，但是有没有办法通过$num.=加上某种运算符或其他东西来告诉它以相反的方式连接？或者任何其他方式来做到这一点，一般来说？

Answer 1

不，赋值运算符不是这样工作的。

$a .= "foo";

...总是意味着类似于

$a = $a . "foo";

没有“连接这些字符串并颠倒顺序”的运算符，因此没有对应的赋值运算符。

Answer 2

0在前面插入$num，

$num =~ s|^|0|;

Answer 3

没有前置运算符，但您可以这样做。

假设$num尚未定义。

my $num = '0';
$num .= expr-that-generates-the-number;

因此，您可以有效地预先添加0变量，而无需输入两次变量。

Answer 4

如果您担心经常这样做，您可以将字符串元素转储到数组中然后反转它吗？但是您不一定会减少代码量，但可能更容易跟踪所有内容。

$array = array();

array_push ( $array , "test" );
array_push ( $array , 0 );

$array = array_reverse( $array );

echo implode( "" , $array );