sort 自定义函数排序代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】 sort 自定义函数排序

作者:grath / 发布于2013/5/6/ 669

与其他的排序方式不一样，只要自己定义两个元素的关系就可以对给出列表排序。


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

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　自定义函数　

同语言下

可能有用的

grath贡献的其它代码(1)

.sort 自定义函数排序