• linkedu视频
  • 平面设计
  • 电脑入门
  • 操作系统
  • 办公应用
  • 电脑硬件
  • 动画设计
  • 3D设计
  • 网页设计
  • CAD设计
  • 影音处理
  • 数据库
  • 程序设计
  • 认证考试
  • 信息管理
  • 信息安全
菜单
linkedu.com
  • 网页制作
  • 数据库
  • 程序设计
  • 操作系统
  • CMS教程
  • 游戏攻略
  • 脚本语言
  • 平面设计
  • 软件教程
  • 网络安全
  • 电脑知识
  • 服务器
  • 视频教程
  • vbs
  • DOS/BAT
  • hta/htc
  • python
  • perl
  • VBA
  • ColdFusion
  • ruby
  • PowerShell
  • Lua
  • Golang
  • linux shell
您的位置:首页 > 脚本语言 >perl > perl高级排序,<=>操作符,飞船操作符

perl高级排序,<=>操作符,飞船操作符

作者: 字体:[增加 减小] 来源:互联网

通过本文主要向大家介绍了&amp lt,&amp lt pps8影院,&amp lt pps8,&amp lt br amp gt,&amp lt p&amp gt等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com

按照要求进行的排序:

@number=qw/5 10 15 3 2 4 8 6 /; 
my @descending =sort {$a<=>$b} @number;#这里$a=5,$b=10,因为$a在前,perl得到的结果是小数在前,也就是升序排列 
print "@descending\n";
</div>

结果如下:
F:\>perl\a.pl 
2 3 4 5 6 8 10 15 

F:\>

如果要降序排列,只要把程序的第二行变成sort{$b<=>$a}就可以了:

@number=qw/5 10 15 3 2 4 8 6 /; 
my @descending =sort {$b<=>$a} @number; 
print "@descending\n";
</div>

结果如下:
F:\>perl\a.pl 
15 10 8 6 5 4 3 2 

F:\>

</div>

您可能想查找下面的文章:

  • perl高级排序,&lt;=&gt;操作符,飞船操作符

相关文章

  • perl 采集入库脚本分享
  • Perl中使用MIME::Lite发送邮件实例
  • Perl中处理时间的几个函数
  • 使用 use re debug 查看正则表达式的匹配过程
  • Perl集群配置管理系统Rex简明手册
  • perl文件操作的一些例子分享
  • perl的格式化(Format)报表输出实现代码
  • Perl脚本检测一个域名是否有效
  • 使用perl清理电脑上重复文件实现代码(续)
  • perl 子程序 sub

文章分类

  • vbs
  • DOS/BAT
  • hta/htc
  • python
  • perl
  • VBA
  • ColdFusion
  • ruby
  • PowerShell
  • Lua
  • Golang
  • linux shell

最近更新的内容

    • 求婚示爱的Perl代码之改写篇
    • Perl学习笔记之CPAN使用介绍
    • perl哈希hash的常见用法介绍
    • perl引用的相关知识分享
    • Perl批量下载Gmail附件的代码
    • perl中单行注释和多行注释使用介绍
    • Perl中的真与假深入研究
    • perl 模式匹配参数详解
    • perl中my和our的区别分析
    • Perl5 OOP学习笔记第1/2页

关于我们 - 联系我们 - 免责声明 - 网站地图

©2020-2025 All Rights Reserved. linkedu.com 版权所有