| TREE :: SIMPLE :: VIEW :: HTML. Æ®¸® :: SIMPLE :: VIEW :: HTMLÀº HTML¿¡¼ Æ®¸® :: °£´ÜÇÑ °èÃþ ±¸Á¶¸¦ º¼ ¼öÀÖ´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
TREE :: SIMPLE :: VIEW :: HTML. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Stevan Little
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~stevan/
TREE :: SIMPLE :: VIEW :: HTML. ű×
TREE :: SIMPLE :: VIEW :: HTML. ¼³¸í
TREE :: SIMPLE :: VIEW :: HTMLÀº HTML¿¡¼ Æ®¸® :: °£´ÜÇÑ °èÃþ ±¸Á¶¸¦ º¼ ¼öÀÖ´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù. TREE :: SIMPLE :: VIEW :: HTMLÀº HTML.SNOPSIS¿¡¼ Æ®¸® :: °£´ÜÇÑ °èÃþ ±¸Á¶¸¦ º¼ ¼öÀÖ´Â PERL Ŭ·¡½ºÀÔ´Ï´Ù. TREE :: SIMPLE :: VIEW :: HTML; ## °£´ÜÇÑ ¿¹Á¦ # ±âº»°ª (CSS°¡¾ø´Â Á¤·ÄµÇÁö ¾ÊÀº ¸ñ·Ï) ³» $ tree_view = tree :: simple :: view :: html-> new ($ tree); ##º¸´Ù º¹ÀâÇÑ ¿¹Á¦ # CSS ¼Ó¼ºÀ» »ç¿ëÇϽʽÿÀ. $ tree_view = tree :: simple :: view :: html-> new ($ tree => (list_type => "ordered", list_css => "list-style : circle; ", list_item_css =>"Font-Family : Åùè; È®Àå µÈ _item_css => "±Û²Ã - °¡Á· : Åùè, ±Û²Ã ¹«°Ô : ±½°Ô",)); # CSS Ŭ·¡½º »ç¿ë MY $ TRAS_VIEW = TRAS :: SIMPLAT :: VIEW :: HTML-> NEW ($ TREE => (list_css_class => "myListClass =>"myListClass ", list_item_css_class =>"myListItemclass ","myExpandedListItemClass ") ); # CSS ¼Ó¼º ¹× CSS Ŭ·¡½º My $ TRAS_VIEW = TRAS :: SIMPLE :: VIEW :: HTML-> NEW ($ TREE => (list_css => "list-style : circle;", list_item_css => "ÆùÆ® °¡Á·) : Åùè; È®Àå => "myExpandedListItemClass", node_formatter => sub {my ($ tree) = @_; return "" ". $ tree-> getNodeValue () -> ¼³¸í ().";})); # Æ®¸®¸¦ ¿ÏÀüÈ÷ È®Àå ÇÑ Àμâ $ tree_view-> expandall (); # ÁÖ¾îÁø °æ·Î¸¦ µû¶ó ÆîÃÄÁø Æ®¸®¸¦ ÀμâÇϽʽÿÀ (ÀÚ¼¼ÇÑ ³»¿ëÀº ¾Æ·¡ ÂüÁ¶) $ TREE_VIEW-> È®Àå °æ·Î ( "·çÆ®", "ÀÚ½Ä", "¼ÕÀÚ"); ¿ä±¸ »çÇ× : ¡¤ Perl.
TREE :: SIMPLE :: VIEW :: HTML. °ü·Ã ¼ÒÇÁÆ®¿þ¾î