在Perl中旋转Integer的数字

mj6*_*174 1 perl integer

在Perl中,如何旋转整数数字?以下是输入和输出示例

样本输入

12345 10901

样本输出

51234 11090

yst*_*sth 7

$x = chop($x) . $x;
Run Code Online (Sandbox Code Playgroud)

要么

$x = substr("$x$x",length($x)-1,length($x))
Run Code Online (Sandbox Code Playgroud)