在Perl中旋转Integer的数字

Question

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

样本输入

12345 10901

样本输出

51234 11090

Answer 1

$x = chop($x) . $x;

或

$x = substr("$x$x",length($x)-1,length($x))

Answer 2

use warnings;
use strict;

for my $x (qw(12345 10901)) {
    my $r = substr($x, -1, 1) . substr($x, 0, -1);
    print "$r\n";
}

__END__

51234
11090