「Perl」sort関数で配列の要素を昇順にする
構文
sort(条件式)配列名
使用例
#! /usr/bin/perl
use strict;
use warnings;
my @cft = (34,5,18,79);
@cft = sort{$a <=> $b}@cft;
print ($cft[0]);
print ($cft[1]);
print ($cft[2]);
print ($cft[3]);
#! /usr/bin/perl
use strict;
use warnings;
my @cft = (34,5,18,79);
@cft = sort{$a <=> $b}@cft;
print ($cft[0]);
print ($cft[1]);
print ($cft[2]);
print ($cft[3]);
#! /usr/bin/perl
use strict;
use warnings;
my @cft = (34,5,18,79);
@cft = sort{$a <=> $b}@cft;
print ($cft[0]);
print ($cft[1]);
print ($cft[2]);
print ($cft[3]);
結果
5
18
34
79