내용으로 건너뛰기
adminschool.net wiki
사용자 도구
로그인
사이트 도구
검색
도구
문서 보기
이전 판
역링크
최근 바뀜
미디어 관리자
사이트맵
로그인
>
최근 바뀜
미디어 관리자
사이트맵
추적:
develop:perl:sorting
이 문서는 읽기 전용입니다. 원본을 볼 수는 있지만 바꿀 수는 없습니다. 문제가 있다고 생각하면 관리자에게 문의하세요.
====== HASH 소팅(sorting) ====== ===== 한글순으로 소팅 ===== <code> #!/usr/bin/perl use strict; use warnings; my %cities = ( "한국" => "서울", "일본" => "도쿄", "그리스" => "아테네", "미국" => "워싱턴", "프랑스" => "파리", ); print "\n<key를 가나다순으로 소팅>\n"; foreach $_ (sort keys %cities) { print "$_ : $cities{$_}\n"; } print "\n\n<value를 가나다순으로 소팅>\n"; foreach $_ (sort { $cities{$a} cmp $cities{$b} } keys %cities) { print "$_ : $cities{$_}\n"; } </code> ===== 숫자순으로 소팅 ===== <code> #!/usr/bin/perl use strict; use warnings; my %num = ( 4343 => 4, 88 => 1215, 0.1 => -12, 1212.1 => 124.0, 542.0 => 54, 42.0 => 0, 87 => 99, ); print "\n\n<key를 숫자 크기순으로 소팅>\n"; foreach $_ (sort {$a <=> $b} keys %num) { print "$_ : $num{$_}\n"; } print "\n\n<value를 숫자 크기순으로 소팅>\n"; foreach $_ (sort { $num{$a} <=> $num{$b} } keys %num) { print "$_ : $num{$_}\n"; } </code>
develop/perl/sorting.txt
· 마지막으로 수정됨: 2007/08/18 20:48 저자
59.9.215.67
문서 도구
문서 보기
이전 판
역링크
맨 위로