| Ŭ·¡½º :: ³ª¹« µð·ºÅ丮 Æ®¸® ¹× C ++ Ŭ·¡½º¿Í °°Àº °èÃþ Àû Á¤º¸¸¦ ÀÛ¼ºÇÏ°í ÀμâÇϽʽÿÀ. |
Áö±Ý ´Ù¿î·Îµå |
Ŭ·¡½º :: ³ª¹« ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rsavage/
Ŭ·¡½º :: ³ª¹« ű×
Ŭ·¡½º :: ³ª¹« ¼³¸í
µð·ºÅ丮 Æ®¸® ¹× C ++ Ŭ·¡½º¿Í °°Àº °èÃþ Àû Á¤º¸¸¦ ÀÛ¼ºÇÏ°í ÀμâÇϽʽÿÀ. Ŭ·¡½º :: Æ®¸®´Â µð·ºÅ丮 Æ®¸® ¹× C ++ Ŭ·¡½º¿Í °°Àº °èÃþ Àû Á¤º¸¸¦ ºôµåÇÏ°í ÀμâÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù .Synopsis Ŭ·¡½º :: Æ®¸®¸¦ »ç¿ëÇÕ´Ï´Ù. # ¶Ç´Â ... # Ŭ·¡½º :: Æ®¸® QW ($ ·çÆ®); # 1. µð·ºÅ丮 Æ®¸®. ³» ($ dir1) = 'somedir / somesubdir'; MY ($ tree1) = »õ Ŭ·¡½º :: ³ª¹«; $ tree1 -> builddirtree ($ dir1, ; $ tree1 -> writeTree (); # 2. C ++ Ŭ·¡½º Æ®¸®. CWD¸¦ »ç¿ëÇϽʽÿÀ; MY ($ currentDir) = cwd (); ³» ($ dir2) = 'somedir / somesubdir'; # * .h¸¦ Æ÷ÇÔÇÕ´Ï´Ù. T / Family.h¸¦ ÂüÁ¶ÇϽʽÿÀ. MY ($ Origin) = 'root'; MY ($ tree2) = »õ Ŭ·¡½º :: ³ª¹«; $ tree2 -> buildclasstree ($ dir2, $ ¿øº», $ currentdir); "Ŭ·¡½º Æ®¸®¸¦ ÀμâÇϽʽÿÀ --------------- "; $ tree2 -> writeTree (); Àμâ" "Àμâ"Ŭ·¡½º ¸ñ·Ï --------------- "; $ tree2 -> writeclasslist (); ¿ä±¸ »çÇ× : ¡¤ Perl.
Ŭ·¡½º :: ³ª¹« °ü·Ã ¼ÒÇÁÆ®¿þ¾î