当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 8 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : [Perl]碰到个小问题
帖子发表于 : 2011-01-24 18:23 

注册: 2010-10-31 9:15
帖子: 507
系统: kubuntu 16.04
送出感谢: 0 次
接收感谢: 13
产生一个随机的自然数,在perl里怎样用最简单的方法截取‘个位数’的?
比如产生了一个$s=845的数(长度也是未知的,可能是3位,可能是5位),我只想知道个位数是多少(这里是5),实在想不出有什么办法啊!!! :em06


_________________
百度网盘 2048G容量 大放送!
百度网盘资源论坛一键保存资源!


页首
 用户资料  
 
2 楼 
 文章标题 : Re: [Perl]碰到个小问题
帖子发表于 : 2011-01-24 19:09 

注册: 2010-10-31 9:15
帖子: 507
系统: kubuntu 16.04
送出感谢: 0 次
接收感谢: 13
:em03

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

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

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

笑。。。 :em02


_________________
百度网盘 2048G容量 大放送!
百度网盘资源论坛一键保存资源!


页首
 用户资料  
 
3 楼 
 文章标题 : Re: [Perl]碰到个小问题
帖子发表于 : 2011-01-24 20:21 
头像

注册: 2011-01-21 22:39
帖子: 25
送出感谢: 0 次
接收感谢: 0 次
%10
........


_________________
Reality is the most imaginary thing
@rorvn
== Return of Raven


页首
 用户资料  
 
4 楼 
 文章标题 : Re: [Perl]碰到个小问题
帖子发表于 : 2011-01-25 9:15 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
(rand(10)


_________________
● 鸣学


页首
 用户资料  
 
5 楼 
 文章标题 : Re: [Perl]碰到个小问题
帖子发表于 : 2011-01-26 0:44 

注册: 2008-07-09 0:39
帖子: 353
送出感谢: 1
接收感谢: 0 次
$s=substr($s, -1, 1); # 直接用负数就行,详见 perldoc -f substr

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


_________________
7号机-----神舟 优雅A460P-i7G D2
CPU: i7-2670QM
RAM: 8G
HD:500G
OS:Fedora 17 x86_64

热衷话题:Package Management\Programming


页首
 用户资料  
 
6 楼 
 文章标题 : Re: [Perl]碰到个小问题
帖子发表于 : 2011-01-26 10:26 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
rand(10)不好吗?
perl都可以不要int取整的,直接使用小数就是。


_________________
● 鸣学


页首
 用户资料  
 
7 楼 
 文章标题 : Re: [Perl]碰到个小问题
帖子发表于 : 2011-01-26 18:11 

注册: 2010-10-31 9:15
帖子: 507
系统: kubuntu 16.04
送出感谢: 0 次
接收感谢: 13
:em11
谢谢大家!问题解决了!


_________________
百度网盘 2048G容量 大放送!
百度网盘资源论坛一键保存资源!


页首
 用户资料  
 
8 楼 
 文章标题 : Re: [Perl]碰到个小问题
帖子发表于 : 2011-01-27 20:09 
头像

注册: 2008-03-23 0:39
帖子: 770
送出感谢: 0 次
接收感谢: 4
int($num)%10


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 8 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 1 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译