Ç÷¯½º Ç÷¯½º

PlusPlus´Â Delphi, VB, Java-Like Perl PreprocessorÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Ç÷¯½º Ç÷¯½º ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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.


Ç÷¯½º Ç÷¯½º °ü·Ã ¼ÒÇÁÆ®¿þ¾î