Web Agent - [Perl]Perlサンプル

[トップページ] [戻る]
#! /usr/local/bin/perl
#
#-------------------------------------------------------------
# 配列の並び替え(SORT)
#
# sort()命令は、配列の要素を内部コードの昇順に並び替えます
#-------------------------------------------------------------
#
	local(@list) = ("9", "8", "7", "6", "5", "4", "3", "2", "1");

	print "Content-type: text/html\n\n";
	print "<HTML>\n";
	print "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\">\n";
	print "<H2>並び替えのテスト</H2>\n";

	# 並び替え前データを表示します
	print "<HR>\n";
	print "並び替え前データを表\示<P>\n";
	foreach $buf (@list) {
		print "$buf<BR>\n";
	}

	@list = sort(@list);

	# 並び替え前データを表示します
	print "<HR>\n";
	print "並び替え後データを表\示<P>\n";
	foreach $buf (@list) {
		print "$buf<BR>\n";
	}

	print "</BODY>\n";
	print "</HTML>\n";

	exit;