perl進階排序,lt;=gt;操作符,飛船操作符

來源:互聯網
上載者:User

按照要求進行的排序:

複製代碼 代碼如下:#!/bin/perl

@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";

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

F:\>

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

複製代碼 代碼如下:#!/bin/perl

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

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

F:\>

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.