[Perl]碰到个小问题

[flwwater]

产生一个随机的自然数，在perl里怎样用最简单的方法截取‘个位数’的？
比如产生了一个$s=845的数（长度也是未知的，可能是3位，可能是5位），我只想知道个位数是多少（这里是5），实在想不出有什么办法啊！！！

[flwwater]

$Len=length($s);
$s=substr($s,$L-1,1);

成功截取个位数！
以上方法可以截取任意长度的连续字符或数字。


本来想用最原始的方法的：）
...
if ($s>=10 && $s<20) {$s=$s-10;}
if ($s>=20 && $s<30) {$s=$s-20;}
...
if ($s>=10000 && $s<10010) {$s=$s-10000;}
...

笑。。。

[RavenChan]

%10
........

[eexpress]

(rand(10)

[cheeselee]

$s=substr($s, -1, 1); # 直接用负数就行，详见 perldoc -f substr

$s = $s % 10; # 最正常的办法就是模10取余，

[eexpress]

rand(10)不好吗？
perl都可以不要int取整的，直接使用小数就是。

[flwwater]

谢谢大家！问题解决了！

[ChenFengyuan]

int($num)%10