| Ç÷¯½º Ç÷¯½º PlusPlus´Â Delphi, VB, Java-Like Perl PreprocessorÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Ç÷¯½º Ç÷¯½º ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- D. E. Ovsyanko
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dmow/PlusPlus-1.23/PlusPlus.pm
Ç÷¯½º Ç÷¯½º ű×
Ç÷¯½º Ç÷¯½º ¼³¸í
PlusPlus´Â µ¨ÆÄÀÌ, VB, Java¿Í °°Àº Perl PreprocessorÀÔ´Ï´Ù. PlusPlus´Â µ¨ÆÄÀÌ, VB, Java¿Í °°Àº Perl Preprocessor.Synopsis ### »ç·Ê 1 : ÀÏ¹Ý ½ºÅ©¸³Æ® »ç¿ë PlusPlus; / * ÀÌ°ÍÀº ¿À·§µ¿¾È ±â´Ù·Á¿Â ´ÙÁß ´ñ±Û * / My $ nested_hash = {outer => {niner => {a => 1, b => , c => 3}}} $ nested_hash.outer. inner.a = 5; # º¯¼ö À̸§ÀÇ ÄÝ·Ð $ nested_hash.outer.inner.b. = 37; $ dbh.do ( "Drop Database Test"); # ÄÝ·Ð ($ nested_hash.outer.inner)ÀÌÀÖ´Â ¸Þ¼µå À̸§ {# '($ .A, $ .c) = (10, 30); Àμâ "b = $ .B. n"; }; ÇÔ¼ö f ($ x, $ y = 0) {# ¸í¸í µÈ ¸Å°³ º¯¼ö ¹× ±âº»°ªÀº sin ($ x) * cos ($ y)}; ### »ç·Ê 2 : µ¥ÀÌÅͺ£À̽º »ç¿ë PlusPlus; DBI¸¦ »ç¿ëÇϽʽÿÀ. ³» $ dbh = dbi -> connect ($ dsn, $ »ç¿ëÀÚ, $ password); Select, StaffÀÇ Àüȸ¦ ¼±ÅÃÇϽʽÿÀ. ±×¸®°í ? -> ³» $ sth; forSQL $ sth (1000, 1500) {Àμâ "
$ .name | | | $ .phone |
|
} ### »ç·Ê 3 : ÀýÂ÷ Àû ¸ðµâ »ç¿ë Ç÷¯½º Ç÷¯½º ...¿¡ ¸ðµâ ¾ÆÀÌ (Ancestor :: ¾î¸Ó´Ï, Á¶»ó : ¾Æ¹öÁö); ¼ºê foo {...}; # ³»º¸³»±â ¼öÃâ ÇÏÀ§ ¸·´ë {...}; # ±âº» export_ok sub baz {...}¿¡ ÀÇÇØ ³» º¸³½ #; # ¸í½Ã ÀûÀ¸·Î °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù ### ÄÉÀ̽º 4 : Ŭ·¡½º Ŭ·¡½º ÇÏÀ§ (Á¶»ó :: ¾î¸Ó´Ï, Á¶»ó :: ¾Æ¹öÁö); ¸Þ¼Òµå init {# constructor Äݹé ($ .x, $ .y) = (10, 3); } ¸Þ¼Òµå Diag {ÀϺΠ¹æ¹ý sqrt ($ .x * $ .x + $ .y * $ .y) ¸Þ¼µå DO_IT_TO_ME ($ CODEREF) {Çϳª ´õ ¸¹Àº ¹æ¹ý $ CODEREF ($ self); } getter fldname {getter method print "±×µéÀº ³» °¡Ä¡¸¦ ¹°¾ú½À´Ï´Ù! n"; $ .fldnameÀ» ¹ÝȯÇÕ´Ï´Ù. } setter fldname ($ value) {# setter ¸Þ¼Òµå $ .setting_counter ++; $ .fldname = $ °ª; } ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
Ç÷¯½º Ç÷¯½º °ü·Ã ¼ÒÇÁÆ®¿þ¾î