perl - Perl中整数的旋转数字

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