oop. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Milan Adamovsky
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~milan/OOP-1.01/lib/OOP.pm
oop. ű×
oop. ¼³¸í
OOP´Â °´Ã¼ ÁöÇâ ÇÁ·Î±×·¡¹Ö Ŭ·¡½ºÀÔ´Ï´Ù. OOP´Â °´Ã¼ ÁöÇâ ÇÁ·Î±×·¡¹Ö Ŭ·¡½ºÀÔ´Ï´Ù .Synopsis #Àº ÇÁ·ÎÅä ŸÀÔÀ» Á¤ÀÇÇÏ´Â ¹æ¹ý, # ¸Å°³ º¯¼ö°¡ Àü´ÞµÇ´Â ¹æ¹ý ¹× # °¡°ø µÈ ¸Å°³ º¯¼ö¿¡ ¾×¼¼½ºÇÏ´Â ¹æ¹ýÀ» º¸¿©ÁÝ´Ï´Ù. OOP »ç¿ë; # OOP.PMÀ» »ç¿ëÇÏ¿© Á¤»óÀûÀ¸·Î # Ŭ·¡½º·Î Àü´Þ µÈ ¸Å°³ º¯¼öÀÔ´Ï´Ù. MY $ CLASSPROTOTYPE = {Çϳª => 1, 2 => 2, 3 => {hi => {dataType => 'hash', allowEmpty => 0, maxlength => 3, minlength => 1, readaccess => 1, Çʼö => 1, °ª => {BYE => '', ebye => {DataType => 'scalar', otupty => 0, maxlength => 8, minlength => 1, readaccess => 0, Çʼö => 0 , °ª => '', writeaccess => 1}}, writeaccess => 1}}}; # OOP.PMÀ» »ç¿ëÇÏ¿© Á¤»óÀûÀ¸·Î # Ŭ·¡½º·Î Àü´Þ µÈ ¸Å°³ º¯¼öÀÔ´Ï´Ù. my $ objectproperties = {Çϳª => 1, 2 => 2, 3 => {hi => {bye => '12345678'}}}; MY $ OBJ = OOP-> NEW ({args => $ objectProperties, ÇÁ·ÎÅä ŸÀÔ => $ classprotype}); $ obj -> {¼Ó¼º} -> {3} {Hi} {Bye}¸¦ ÀμâÇϽʽÿÀ. "N"; $ obj-> getProperty ($ obj -> {¼Ó¼º} -> {3} {HI} {BYE})¸¦ ÀμâÇϽʽÿÀ. "n"; Ãß»óÀû ÀΠŬ·¡½º´Â OOP ¼¼°èÀÇ ÀϹÝÀûÀÎ ¹®Á¦¿¡ ´ëÇÑ ¼Ö·ç¼ÇÀ» Á¦°øÇÔÀ¸·Î½á °´Ã¼ ÁöÇâ ÇÁ·Î±×·¡¹Ö ( "OOP") °³¹ßÀ» º¸¿ÏÇϱâÀ§ÇÑ °ÍÀÔ´Ï´Ù. ¹®Á¦°¡ ¾Æ´Ñ °æ¿ìÀÌ Å¬·¡½º´Â ´Ù¾çÇÑ OOP °ü·Ã ÀÛ¾÷À» ÃËÁøÇÏ°í °¡´ÉÇÑ °æ¿ì ´Ù¾çÇÑ ±ÔÄ¢À» µû¸£´Â ´Ù¾çÇÑ ±ÔÄ¢À» º¸ÀåÇÕ´Ï´Ù. ±ÕÀÏ ÇÑ OOP Çù¾àÀ» ½ÃÇàÇÏ°í Perl.ImplyÀÇ »ç¿îµå OOP °³¹ßÀ» º¸ÀåÇÏ´Â ´Ù¾çÇÑ ¹æ¹ýÀ» °®Ãá °³¹ßÀÚ¸¦ Á¦°øÇÕ´Ï´Ù.ÀÌ Å¬·¡½º´Â °¡´ÉÇÑ ÇÑ °³¹ßÀÚ¸¦ À§ÇØ °¡´ÉÇÑ ÇÑ °³¹ßÀÚ¸¦À§ÇÑ ¸¹Àº OOP ¿À¹ö Çìµå¸¦ ²¨³»·Á°íÇÕ´Ï´Ù. º¸´Ù °·ÂÇÑ ÀÀ¿ë ÇÁ·Î±×·¥. ¿ä±¸ »çÇ× : ¡¤ Perl.
oop. °ü·Ã ¼ÒÇÁÆ®¿þ¾î