| ÈÇÐ :: ¿ä¼Ò ÈÇÐ :: ¿ä¼Ò´Â ÈÇÐ ¿ø¼Ò ÀÛ¾÷À»À§ÇÑ PERL È®ÀåÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÈÇÐ :: ¿ä¼Ò ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bdfoy/
ÈÇÐ :: ¿ä¼Ò ű×
ÈÇÐ :: ¿ä¼Ò ¼³¸í
ÈÇÐ :: ¿ä¼Ò´Â ÈÇÐ ¿ø¼Ò ÀÛ¾÷À»À§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. ÈÇÐ :: ¿ä¼Ò´Â ÈÇÐ ¿ä¼Ò·Î ÀÛ¾÷ÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù .Synopsis »ç¿ë ÈÇÐ :: ¿ä¼Ò QW (get_name get_z get_symbol); # »ý¼ºÀÚ´Â ´Ù¸¥ ÀÔ·Â $ element = »õ·Î¿î ÈÇÐ :: ¿ä¼Ò $ Atomic_Number; $ element = »õ·Î¿î ÈÇÐ :: ¿ä¼Ò $ Chemical_symbol; $ element = »õ·Î¿î ÈÇÐ :: ¿ä¼Ò $ element_name; # # ¸Þ¼Òµå (½ÇÁ¦·Î Autoload) $ element-> molear_mass (22.989) #sets¸¦ ÁöÁ¤ÇÏ¿© ÀÚ½ÅÀÇ ¼Ó¼ºÀ» ±¸¼º ÇÒ ¼ö ÀÖ½À´Ï´Ù. $ mm = $ Element-> molear_mass #Retrieves ValueThere´Â ¸ðµâ¿¡ µÎ ºÎºÐÀÔ´Ï´Ù. °´Ã¼ ¹°°Ç°ú °´Ã¼ ¹°°Ç ¿ÜºÎ¿¡¼ »ç¿ëÇϱâÀ§ÇÑ ³»º¸³»±â ±â´É. ³»º¸³¾ ¼öÀÖ´Â ±â´ÉÀº ³»º¸³»±â ±â´É¿¡¼ ¼³¸íÇÕ´Ï´Ù. ÈÇÐ :: ¿ä¼Ò´Â ÈÇÐ µ¥ÀÌÅ͸¦ ÃßÀû ÇÒ ¼öÀÖ´Â ½±°í °³Ã¼ ÁöÇâÀû ÀÎ ¹æ¹ýÀ» Á¦°øÇÕ´Ï´Ù. ¿øÀÚ ¹øÈ£, ÈÇÐ ±âÈ£ ¶Ç´Â ¿ä¼Ò À̸§À» »ç¿ëÇÏ¿© ¿ä¼Ò °´Ã¼¸¦ ±¸¼º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿ä¼Ò °³Ã¼°¡ ÀÖÀ¸¸é ÀÚµ¿·Îµå ÇÔ¼ö°¡ ó¸®ÇÏ´Â ÀÚü ¸Þ¼µå¸¦ ±¸¼ºÇÏ¿© µ¥ÀÌÅ͸¦ °³Ã¼¿Í ¿¬°áÇÒ ¼ö ÀÖ½À´Ï´Ù. °¢ ÈÇÐÀÚ´Â ÀÚ½ÅÀÇ µ¥ÀÌÅÍ ¶Ç´Â ÀϺΠunforesee -able ¼Ó¼º¿¡ ´ëÇÑ µ¥ÀÌÅ͸¦ »ç¿ëÇϱ⸦ ¿øÇϱ⠶§¹®¿¡ÀÌ ¸ðµâÀº ÈÇÐÀû µ¥ÀÌÅÍÀÇ ÀúÀå¼Ò°¡µÇÁö ¾Ê½À´Ï´Ù. ¿ä¼Ò °´Ã¼ »ý¼ºÀÚ°¡ °¡´ÉÇÑ ÇÑ À¯¿¬ÇÏ°Ô ¼öÇàÇÏ·Á°íÇÕ´Ï´Ù. ¿øÀÚ ¹øÈ£, ÈÇÐ ±âÈ£ ¶Ç´Â ¿ä¼Ò À̸§ÀÌ¸ç °´Ã¼¸¦ ¸¸µé·Á°íÇÕ´Ï´Ù. # »ý¼ºÀÚ´Â ´Ù¸¥ ÀÔ·Â $ element = »õ·Î¿î ÈÇÐ :: ¿ä¼Ò $ Atomic_Number; $ element = »õ·Î¿î ÈÇÐ :: ¿ä¼Ò $ Chemical_symbol; $ element = new ÈÇÐ :: ¿ä¼Ò $ element_name; ¿ÀºêÁ§Æ®°¡µÇ¸é ´Ü¼øÈ÷ ÀÚ½ÅÀÇ ¹æ¹ýÀ» »ç¿ëÇÏ¿© ÀÚ½ÅÀÇ ¹æ¹ýÀ» Á¤ÀÇ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¸Þ¼Òµå¸¦ Àμö (¹«½ÃÇÒ) ¸Þ¼Òµå¸¦ Á¦°øÇÏ´Â °ÍÀº ¸Þ¼ÒµåÀÇ À̸§°ú ÀμöÀÇ °ªÀ» °¡Áø Ư¼ºÀ» ¸¸µì´Ï´Ù. # ¸Þ¼Òµå (½ÇÁ¦·Î ÀÚµ¿·Îµå) $ element-> molear_mass (22.989) #sets¸¦ ÁöÁ¤ÇÏ¿© ÀÚ½ÅÀÇ ¼Ó¼ºÀ» ±¸¼º ÇÒ ¼ö ÀÖ½À´Ï´Ù. $ mm = $ Element-> morar_mass # valuethe ¿øÀÚ ¹øÈ£, ÈÇÐ ±âÈ£ ¹× ¿ä¼Ò À̸§Àº °°Àº ¹æ½ÄÀ¸·Î °Ë»ö ÇÒ ¼ö ÀÖ½À´Ï´Ù. $ Atomic_Number = $ element-> z; $ name = $ Element-> À̸§; $ symbol = $ ¿ä¼Ò -> ±âÈ£; ¼¼ °¡Áö Áß Çϳª¸¦ º¯°æÇÏ´Â °ÍÀº ´Ù¸¥ µÎ °¡Áö¿¡ ¿µÇâÀ» ¹ÌÄ¡Áö ¸¸ °ªÀ» ¼³Á¤ÇÏ´Â µ¥ »ç¿ëÇÒ ¼öµµ ÀÖ½À´Ï´Ù. $ element = »õ·Î¿î ÈÇÐ :: ¿ä¼Ò ( 'lead'); $ Atomic_Number = $ element-> z; # $ Atomic_Number´Â 82 $ ¿ä¼Ò -> z (79); $ name = $ Element-> À̸§; # $ nameÀº 'Gold'¿ä±¸ »çÇ× : ¡¤ Perl.
ÈÇÐ :: ¿ä¼Ò °ü·Ã ¼ÒÇÁÆ®¿þ¾î