| Ŭ·¡½º :: ½ºÅ² ÅؽºÆ® ÅÛÇø´¿¡¼ ÅؽºÆ®¸¦ ¸¸µå´Â Ŭ·¡½º |
Áö±Ý ´Ù¿î·Îµå |
Ŭ·¡½º :: ½ºÅ² ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Rani Pinchuk
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rani/
Ŭ·¡½º :: ½ºÅ² ű×
Ŭ·¡½º :: ½ºÅ² ¼³¸í
ÅؽºÆ® ÅÛÇø´¿¡¼ ÅؽºÆ®¸¦ ¸¸µå´Â Ŭ·¡½º Ŭ·¡½º :: ½ºÅ²Àº ÅؽºÆ® ÅÛÇø´¿¡¼ ÅؽºÆ®¸¦ ¸¸µå´Â Perl ¸ðµâÀÔ´Ï´Ù .Synopsis Ŭ·¡½º :: ½ºÅ²; # »õ Ŭ·¡½º ¸¸µé±â :: ½ºÅ² °´Ã¼ My $ Skin = »õ Ŭ·¡½º :: ½ºÅ² ( "template.txt"); # ÅÛÇø®Æ® ÆÄÀÏÀ» ÀÐÀ¸½Ê½Ã¿À $ SKEN-> read (); # ÅÛÇø´À» ±¸¹® ºÐ¼®ÇÏ°í °á°ú¸¦ ÀμâÇÕ´Ï´Ù. ¿ì¸®´Â À͸íÀÇ # Çؽø¦ ÅÛÇø´ ÇÁ¸°Æ® Àμâ $ skin-> ±¸¹® ºÐ¼® ({title => $ title, i => $ i, condition1 => 1, condit2 => 0, condition3 =)¿¡¼ º¸³»°í ½Í½À´Ï´Ù. > 1, Á¶°Ç 4 => 0, Á¶°Ç 5 => 1, Á¶°Ç 6 => 0, Á¶°Ç 7 => 1, Á¶°Ç 8 => 0, Á¶°Ç 9 => 1, filepath => "template2.txt", func => \ call_back_func}); ¿ä±¸ »çÇ× : ¡¤ Perl.
Ŭ·¡½º :: ½ºÅ² °ü·Ã ¼ÒÇÁÆ®¿þ¾î