sub by_number { if ($a > $b){1} elsif($a < $b){-1} else {0} } my @number = (1,4,76,42,35,51,3,5); my @result = sort by_number @number; print "@result"; print "\n"; foreach (@result){ print "$_ \t"; }
常见问题
相关文章
猜你喜欢
- 从国家自然科学基金里面爬取所有的基金项目 2015-12-14
- perl symlink 相对路径 2015-12-14
- 获取本机所有IP和设备的绑定情况 2015-12-14
- INI文件的解析 2015-12-14
- perl中的队列 2015-12-14
- 分割合并文件 2015-12-14
- perl解析xml 2015-12-14
- SQL2000数据库比较 2015-12-14
- perl通过IMAP接收、处理邮件 2015-12-14
- Perl 列出系统所有的帐号（Windows） 2015-12-14
