| Sys :: CMD. ½Ã½ºÅÛ ¸í·É ½ÇÇà ¶Ç´Â ½Ã½ºÅÛ ÇÁ·Î¼¼½º¸¦ »ý¼ºÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Sys :: CMD. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Mark Lawrence
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mlawren/
Sys :: CMD. ű×
Sys :: CMD. ¼³¸í
½Ã½ºÅÛ ¸í·ÉÀ» ½ÇÇàÇϰųª ½Ã½ºÅÛ ÇÁ·Î¼¼½º¸¦ »ý¼ºÇϽʽÿÀ SYS :: CMD´Â ½Ã½ºÅÛ ¸í·ÉÀ» ½ÇÇàÇÏ°í Ãâ·ÂÀ» ĸóÇϰųª STDIN, STDOUT ¹× STDERR ÆÄÀÏ ÇÚµéÀ» ÅëÇØ ½Ã½ºÅÛ ÇÁ·Î¼¼½º¿Í ½ºÆùÀ» ĸóÇÏ°í ½Ã½ºÅÛ ÇÁ·Î¼¼½º¿Í »óÈ£ ÀÛ¿ëÇÒ ¼öÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù. SYS :: CMD QW / RUN SPAWN /; # ¸í·É Ãâ·Â °¡Á® ¿À±â, ½ÇÆнà ¿¹¿Ü Á¦±â : $ OUTPUT = RUN (@CMD); # ÇÇµå ¸í·É ÀϺΠÀÔ·Â, ¶óÀÎÀ¸·Î Ãâ·Â, # ½ÇÆнà ¿¹¿Ü Á¦±â : @OUTPUT = RUN (@cmd, {input => feedme '}); # ½ºÆù ¹× Ư¼ö ȯ°æÀÌÀÖ´Â ÇÁ·Î¼¼½º¿Í »óÈ£ ÀÛ¿ë : $ proc = spawn (@cmd, {dir => / ', encoding =>'ISO-8859-3 '}); while (my $ line = $ proc-> stdout-> getline) {$ proc-> stdin-> Àμâ ( "°¨»ç"); } My @Errors = $ PROC-> stderr-> getLines; $ proc-> close (); # ¿Ï·á! # Àбâ Á¾·á Á¤º¸ $ proc-> Á¾·á (); # Á¾·á »óÅ $ proc-> signal (); # ½ÅÈ£ $ proc-> core (); # Äھ ¹ö·Á Á³½À´Ï±î? (ºÎ¿ï) ¿ä±¸ »çÇ× : ¡¤ Perl.
Sys :: CMD. °ü·Ã ¼ÒÇÁÆ®¿þ¾î