| ³ØŸÀÌ :: Çؽà :: Á¤·Ä TIE :: HASH :: Sorted Perl ¸ðµâÀº Çؽø¦ Á¤·Ä ¼ø¼·Î ¼±¹°ÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
³ØŸÀÌ :: Çؽà :: Á¤·Ä ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Joshua Gatcomb
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jgatcomb/Tie-Hash-Sorted-0.10/Sorted.pm
³ØŸÀÌ :: Çؽà :: Á¤·Ä ű×
³ØŸÀÌ :: Çؽà :: Á¤·Ä ¼³¸í
³ØŸÀÌ :: Çؽà :: Á¤·Ä µÈ Perl ¸ðµâÀº Çؽø¦ Á¤·Ä ¼ø¼·Î ¼±¹°ÇÕ´Ï´Ù. ³ØŸÀÌ :: Çؽà :: Á¤·Ä µÈ Perl ¸ðµâÀº ºÐ·ù µÈ Order¿¡¼ Çؽø¦ ¼±¹°ÇÕ´Ï´Ù. Synopsis »ç¿ë Tie :: Hash :: Sorted; My % Ages = ( 'John'=> 33, 'Jacob'=> 29, 'jingle'=> 15, heimer '=> 48,'smitz '=> 12); MY $ SORT_BY_NUMERIC_VALUE = SUB {MY $ hash = Shift; ; }; ³» % sorted_ages, 'tie :: hash :: sorted', 'ÇؽÃ'=> % Ages, 'sort_routine'=> $ sort_by_numeric_value; ³» $ name (Å° % sorted_ages) {print "$ nameÀº $ sorted_ages {$ name} old.n"ÀÔ´Ï´Ù. } ### Ãâ·Â ### Heimer´Â 48 °³ÀÇ ±ÍÀÔ´Ï´Ù. ¿äÇÑÀº 33 °³ÀÇ ±ÍÀÔ´Ï´Ù. JacobÀº 29 ±ÍÀÔ´Ï´Ù. ¡±ÛÀº 15 °³ÀÇ ±ÍÀÔ´Ï´Ù. Smitz´Â 12 °³ÀÇ ±ÍÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
³ØŸÀÌ :: Çؽà :: Á¤·Ä °ü·Ã ¼ÒÇÁÆ®¿þ¾î