| #!/usr/bin/perl
print "content-type:text/html\n\n";
$test1 = "일번|114|뿌하하1";
$test2 = "이번|011|뿌하하2";
$test3 = "삼번|13|뿌하하3";
#위 변수를 일단 배열로 담아봅니다.
#변수가 무지 많다면 배열을 담을때 for와 push를 이용해서 담습니다.
@test_array = ("$test1","$test2","$test3");
#담은 배열을 foreach를 이용해서 각 값을 쪼개어 새 배열에 담습니다.
@new_array = (); #공배열을 지정했습니다. ==> 필요없는 거지만 그냥 버릇입니다. ^^
foreach $list (@test_array) {
($a1,$a2,$a3) = split(/\|/,$list); #받은 $list 값에서 | 를 기준으로 쪼갭니다.
push (@new_array,$a2); #구한 $a2 값을 새로운배열 @new_array에 넣습니다.
}
@new_array = reverse sort sortnumbers @new_array;
print "$new_array[0]";
#아래 루틴은 sort가 문자코드 따른 정렬만 되기 때문에
#실제 숫자의 크기를 비교하기 위해 만든 서브루틴입니다.
sub sortnumbers {
$a <=>$b;
} | 
76
1,469
2003-02-23 20:56:59
닉네임
