perl_sort

目次

• perlのソート
• サンプルコード

perlのソート

サンプルコード

#!/usr/bin/perl
use strict;
my @num = ( "1", "2", "11");

foreach ( sort(@num) ) {
	print "$_\n";
}
foreach ( sort logic(@num) ) {
	print "$_\n";
}

# ここの戻りを判定するときに、
# 返したいように作ればいい
sub logic {
	# $a, $bが比較する変数
	if ( $a > $b ) {
		return 1;
	} elsif ( $a == $b ) {
		return 0;
	} else {
		# as $a < $b
		return -1;
	}
}