[トップページ] [戻る]
#! /usr/local/bin/perl
#
#-------------------------------------------------------------
#	連想配列の昇順ソート
#-------------------------------------------------------------
#

##### keys 指定の前に sort をつけます
foreach $KEY (sort keys %HASH) {
	$DATA = $HASH{$KEY};
	print "$DATA\n";
}

[トップページ] [戻る]
Copyright (C) 2000 Me All rights reserved
Mail To webmaster