Å×½ºÆ® :: ¾Æ¿ô ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~ldavis/
Å×½ºÆ® :: ¾Æ¿ô ű×
Å×½ºÆ® :: ¾Æ¿ô ¼³¸í
FileHandle¿¡¼ Ãâ·Â µÈ Å×½ºÆ® Å×½ºÆ® :: OUTÀº IO :: Çڵ鿡 ´ëÇÑ Ãâ·Â °á°ú¸¦ Á¦¿ÜÇÏ°í´Â Àß ¾Ë·ÁÁø Å×½ºÆ® ½Ã¼³ Áß ÀϺθ¦ ±¸ÇöÇÏ´Â ¶Ç ´Ù¸¥ Å×½ºÆ® :: ºô´õ ÀÀ¿ë ÇÁ·Î±×·¥ÀÔ´Ï´Ù. ÀÌ´Â ÆÄÀÏ¿¡ ÀμâµÇ´Â Ãâ·ÂÀ» ĸóÇÏ´Â µ¥ »ç¿ëÇÒ ¼ö ÀÖÁö¸¸ STDOUT ¶Ç´Â stderr.Synopsis »ç¿ë Å×½ºÆ®·Î Àü¼ÛµÇ´Â Ãâ·Â¿¡ ÀÌ»óÀûÀÔ´Ï´Ù. ³» $ OUT = TEST :: OUT-> NEW (Ãâ·Â => * stdout, tests => 4); # ¶Ç´Â ... ³» $ OUT = TEST :: OUT-> NEW (TESTS => 4); $ OUT-> ¸®µð·º¼Ç (Ãâ·Â => * stdout); ## ÀÌ°ÍÀº ±ÍÇÏÀÇ Çϳ׽º°¡ $ out-> Diag ( "Å×½ºÆ®°¡ * ÇÔ¼ö")¸¦ º¼ ¼öÀÖ´Â °÷À¸·Î À̵¿ÇÕ´Ï´Ù. ## ±×·¯³ª ÀÌ°ÍÀº µð½ºÇ÷¹À̵ÇÁö ¾ÊÁö¸¸ Å×½ºÆ® ¹æ¹ý¿¡ ´ëÇØ Ä¸Ã³µÇÁö ¾Ê½À´Ï´Ù $ -> method_that_prints ( "test \ n"ÀÓ); $ out-> is_output ( "test \ n", "test 1"); $ out-> isnt_output ( "Han Shot First", "Test 2"); $ OUT-> DIAG ( "Regex ÇÔ¼ö Å×½ºÆ®"); Core :: Random Number : @ {} \ n "; $ out-> like_output (QR / ³¼ö : \ d + /, "Å×½ºÆ® 3"); $ out-> ill°ú °°À½ (qr / i pickles $ / test 4 "); $ out-> º¹¿ø; ## ÀÌ°ÍÀº Stdout Print "done. \ n"; ¿ä±¸ »çÇ× : ¡¤ Perl.
Å×½ºÆ® :: ¾Æ¿ô °ü·Ã ¼ÒÇÁÆ®¿þ¾î