Å×½ºÆ® :: ±â´É

±â´ÉÀû ½ºÅ¸ÀÏÀÇ Perl Å×½ºÆ®
Áö±Ý ´Ù¿î·Îµå

Å×½ºÆ® :: ±â´É ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Erik Andreas Osheim
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~erik/

Å×½ºÆ® :: ±â´É ű×


Å×½ºÆ® :: ±â´É ¼³¸í

±â´ÉÀû ½ºÅ¸ÀÏÀÇ Perl Å×½ºÆ® Test :: FunctionalÀº Perl ÇÁ·ÎÅä ŸÀÔÀ» ÅëÇØ »õ ±¸¹®À» ÀÛ¼ºÇÏ´Â ±â´ÉÀ» »ç¿ëÇÏ¿© °ªÀÌ ¾Æ´Ñ ÇÔ¼ö¿¡ ÃÊÁ¡À» ¸ÂÃá Å×½ºÆ® ½Ã½ºÅÛÀ» ¸¸µå´Â ±â´ÉÀ» »ç¿ëÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. PERLÀÇ ºí·ÏÀ» Å×½ºÆ®ÇÏ°í ºñ±³±â ±â´ÉÀ» »ç¿ëÇÏ¿© Ãâ·ÂÀ» Å×½ºÆ®ÇÕ´Ï´Ù. Å×½ºÆ®¿¡ ´ëÇÑ ´Ù¸¥ ¹æ¹ýÀ¸·Î »ç°í ¹æ½ÄÀÌ ÀÖÀ½¿¡µµ ºÒ±¸ÇÏ°í Å×½ºÆ®¿Í Àß Àç»ýµË´Ï´Ù. # ÆøźÀÌ Sub Explode ´ÔÀÌ {die "ºÕ"} Å×½ºÆ® {deplode ()} Å×½ºÆ® "Test-3"; # ¾Ï½Ã Àû ¹× ¸í½Ã Àû µ¿µî¼º Å×½ºÆ® {2 * 2} 4, "Test-1"; Å×½ºÆ® {2 * 2} EQV 4, "TEST-1"; # Å×½ºÆ® ºí·ÏÀº Å×½ºÆ®¸¦ ¿øÇϴ´ë·Î °£´ÜÇϰųª °ü·ÃÀÌÀÖÀ» ¼ö ÀÖ½À´Ï´Ù. {3> 0} TRUE, "TEST-4"; Å×½ºÆ® {MY $ total = 0; ³» $ Person ($ car-> °ÅÁÖÀÚ) {$ Total + = $ Person-> Weight} $ Total <600} Âü "test-5"; # Å×½ºÆ®°¡ ½ÇÇàµÇ¸é °á°ú°¡ ¹ß»ýÇÕ´Ï´Ù ³» $ horse = test {horse-> new} typeqv "¸»", "test-6"; # ´ç½Å ÀÚ½ÅÀÇ ºñ±³±â ±â´ÉÀ» ¸¸µé°Å³ª ±âÁ¸ÀÇ ±âÁ¸À» »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. Å×½ºÆ® :: ±âŸ °¡Á® ¿À±â => ; sub islike {my ($ ´Ù¸¥) = @_; ¹Ýȯ ÇÏÀ§ {My ($ got, $ testName) = @_; ($ GOT, $ ´Ù¸¥, $ testName); }; } Å×½ºÆ® { 'Caterpillar'} islike (qr / cat /), '°í¾çÀÌ?'; ¿ä±¸ »çÇ× : ¡¤ Perl.


Å×½ºÆ® :: ±â´É °ü·Ã ¼ÒÇÁÆ®¿þ¾î