µ¥ÀÌÅÍ :: ´ÙÀ̹ö

Data :: Diver´Â ±íÀÌ Áßø µÈ ±¸Á¶ÀÇ ¿ä¼Ò¿¡ ´ëÇÑ °£´ÜÇÏ°í Ȥµ¿µÇ´Â ¾×¼¼½ºÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

µ¥ÀÌÅÍ :: ´ÙÀ̹ö ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Tye McQueen
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~tyemq/Data-Diver-1.0101/Diver.pm

µ¥ÀÌÅÍ :: ´ÙÀ̹ö ű×


µ¥ÀÌÅÍ :: ´ÙÀ̹ö ¼³¸í

µ¥ÀÌÅÍ :: Àá¼öºÎ´Â ±íÀÌ Áßø µÈ ±¸Á¶ÀÇ ¿ä¼Ò¿¡ ´ëÇÑ °£´ÜÇÏ°í ±¤°í°¡ ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. DATA :: DIVER´Â ±íÀÌ Áßø µÈ ±¸Á¶Ã¼ÀÇ ¿ä¼Ò¿¡ ´ëÇÑ °£´ÜÇÏ°í ad-hoc ¾×¼¼½ºÀÔ´Ï´Ù. SummaryData :: Divers´Â ±íÀÌ Áßø µÈ µ¥ÀÌÅÍ ±¸Á¶ÀÇ ¿ä¼Ò¿¡ ´ëÇÑ Ad-Hoc ¾×¼¼½º¸¦À§ÇÑ Dive () ¹× DiveVal () ±â´ÉÀ» Á¦°øÇÏ°í Diveref ( ), diveError (), diveclear () ¹× divedie () Áö¿ø ÇÔ¼ö. ½Ä Å×ÀÌ¼Ç »ç¿ë µ¥ÀÌÅÍ :: ´ÙÀ̹ö qw (´ÙÀ̺긮ºê Diveref DiveError); ³» $ root = {top => ,},],}; # $ °ªÀ» '¿¹'·Î ¼³Á¤ÇÕ´Ï´Ù. ($ root -> {top} {second} {key} {3} {Exists}) : My $ Value = Dive ($ root, qw (»óÀ§ 1 µÎ ¹ø° Å° 33 °³ÀÇ Á¸Àç)); # "´©¶ô"ÀÌ Á¸ÀçÇÏÁö ¾Ê±â ¶§¹®¿¡ $ value ()¸¦ ¼³Á¤ÇÕ´Ï´Ù. $ value = ´ÙÀ̺ù ($ root, qw (¸Ç À§·Î 1 ÃÊ Å° 3 ´©¶ô)); # $ root -> {top} {second} {key} °¡ ¹è¿­ÀÇ ³¡¿¡¼­ ²¨Á®ÀÖ´Â °æ¿ì $ value = ´ÙÀ̺ê ($ root, qw (»óÀ§ 1 ÃÊ Å° 4 ...)); # $ root -> {top} {second} {key} ´Â Ä¡¸íÀûÀÎ ¿À·ù°¡ µÉ °ÍÀÔ´Ï´Ù. $ value = ´ÙÀ̺ê ($ root, qw (»óÀ§ 1 ÃÊ Å° -5 ...)); # $ ref¸¦ $ root -> {top} [@ {$ root -> {TOP}}À» ÀÚ¶ó°í µÎ °³ÀÇ À͸íÀÇ Çؽø¦ ÀÚ¶ó±Í) : my $ ref = diveref ($ ·çÆ® , qw (»óÀ§ 9 °³ÀÇ »õ·Î¿î ÇÏÀ§)); # die () s´Â À¯È¿ÇÑ ¼ýÀÚ°¡ ¾Æ´Õ´Ï´Ù : $ ref = diveref ($ root, qw (´Ù¸¥ ...)); # : $ root -> {num} {1} {2} = 3; # (¼ýÀÚ Å°¿¡µµ ºÒ±¸ÇÏ°í Çؽø¦ ÀÚµ¿À¸·Î ÇؽÃ) DiveVal ($ root, (qw (num 12))) = 3; # ¶È°°Àº ÀÏ : $ {diveref ($ root, 'num', 1, 2)} = 3; # À§ÀÇ °ªÀ» °¡Á®¿É´Ï´Ù. $ value = 3 : $ value = diveval ($ root, 'num', 1, 2); # ¶È°°Àº ÀÏ : $ value = $ {Diveref ($ root, (qw (num 12)))}; # $ root -> {top} {1}À» ½ÃµµÇÏ°í # $ root -> {TOP}´Â ¹è¿­ ÂüÁ¶ : diveref ($ root, 'top', 1); # ¸¶Áö¸· ´Ü°è¿¡¼­¸¸ ÀÚµ¿ ºñÈ°¼º : $ REF = Diveref (Dive ($ root, qw (»óÀ§ 1 ÃÊ Å° 33)), '´©¶ô'); ($ ref) {$$ ref = 'me'} else {my ($ nestedref, $ svkey, $ errdesc) = diveError (); ´ÙÀÌ "$$ svkey¸¦ ÅëÇØ $ NestedRef¸¦ »ç¿ëÇÒ ¼ö ¾ø½À´Ï´Ù : $ errdescn"; } ¿ä±¸ »çÇ× : ¡¤ Perl.


µ¥ÀÌÅÍ :: ´ÙÀ̹ö °ü·Ã ¼ÒÇÁÆ®¿þ¾î

XML :: ±ÔÄ¢

XML :: ±ÔÄ¢Àº ÀÙ¿¡¼­ ½ÃÀÛÇÏ´Â ±ÔÄ¢¿¡ µû¶ó XML ¹× ÇÁ·Î¼¼½º ű׸¦ ±¸¹® ºÐ¼® ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

182

´Ù¿î·Îµå

svggraph.

SVGGraph´Â SVG ±×·¡ÇÁ / ´ÙÀ̾î±×·¥ / Â÷Æ® / Ç÷ÔÀ» »ý¼ºÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. ...

146

´Ù¿î·Îµå