perl - 「逆」を行う方法はありますか? =?

Question

の先頭に 0 を追加したい$num:

$num = "0".$num;

これは正常に動作しますが、$num.=プラスの演算子または逆の方法で連結するように指示する何かを使用してそれを行う方法はありますか? または、一般的にそれを行う他の方法はありますか？

Answer 1

0の前に挿入$num、

$num =~ s|^|0|;

Answer 2

前置演算子はありませんが、これを行うことができます。

$numまだ定義されていないと仮定します。

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

0したがって、変数を 2 回入力しなくても、変数の先頭に効果的に追加できます。

Answer 3

これを頻繁に行うことに関心がある場合は、文字列要素を配列にダンプしてから逆にすることができますか? ただし、必ずしもコードの量を減らすとは限りませんが、すべてを追跡する方が簡単になる場合があります。

$array = array();

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

$array = array_reverse( $array );

echo implode( "" , $array );