µÞ¸¶´ç ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Anthony Kilna
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kilna/
µÞ¸¶´ç ű×
µÞ¸¶´ç ¼³¸í
Backticks´Â Èï¹Ì·Î¿î ¹æ½ÄÀ¸·Î Äõ¸® ÇÒ ¼öÀÖ´Â Àüü °´Ã¼·Î ¹éƲÀ» ÀüȯÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. backticks¸¦ »ç¿ëÇϽʽÿÀ; ³» $ °á°ú =`ls -a /`; # $ °á°ú¸¦ $ °á°ú·Î ÁöÁ¤ÇϽʽÿÀ. $ °á°ú -> stdout; # ¸í·ÉÀÇ stdout Àμâ $ °á°ú -> stderr; # ¸í·ÉÀÇ stderr Àμâ $ °á°ú -> ¼º°ø; # ¸í·ÉÀÌ Á¾·á µÈ $ °á°ú¸¦ ±ú²ýÇÏ°Ô ÇÒ ¶§ # true°¡µË´Ï´Ù. # ¸í·ÉÀÇ stdoutÀ» °¡Á® ¿À½Ê½Ã¿À ... ¿ÀºêÁ§Æ® #Àº ¸í·ÉÀÇ Ãâ·ÂÀ¸·Î reinify ¸í·ÉÀ» ´Ý½À´Ï´Ù. `perl -e 'stderr "print stderr"¾Æ¾ß! \ n "; 1 'Ãⱸ·Î ³ª°¡½Ê½Ã¿À. ´ÙÀ½ ¸Þ½ÃÁö°¡ÀÖ´Â °æ¿ì :`perl -e 'Àμâ stderr "¿À·ù! \ n"; Á¾·á 1 ': 0ÀÌ ¾Æ´Ñ Á¾·á ÄÚµå 1·Î ½ÇÆÐÇÑ ¿À·ù Ãâ·Â : Ouch! ÀÚµ¿À¸·Î comp Ãâ·Â : $ backticks :: chomped = 1; ³» $ CHOMPED =`PERL -E 'Àμâ "Hello! \ n"`; ´ç½ÅÀº µÞ¸¶´ç Á÷ÈÄ¿¡ ¸Þ¼Òµå¸¦ È£ÃâÇÏ¿© °´Ã¼ ¸ðµå¿¡¼ Áï½Ã ¸Å°³ º¯¼ö¿¡ ¾×¼¼½º ÇÒ ¼öµµ ÀÖ½À´Ï´Ù! `echo foo`-> stdout; # 'foo'´Â 'perl -e'Àμâ stderr "hello world!" '`-> stderr; # 'Hello World'°¡`perl -e 'exit 1''-> ExitCode¸¦ º¸¿©ÁÝ´Ï´Ù. # ¼î '1'You´Â °´Ã¼¸¦ ¸¸µå´Â ´ë½Å Ŭ·¡½Ä Perl °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º¸¦ »ç¿ëÇÒ ¼öµµ ÀÖ½À´Ï´Ù. ´ÙÀ½ ¸í·ÉÀº À§ÀÇ Ã¹ ¹ø° ¸í·É°ú µ¿ÀÏÇÕ´Ï´Ù. ³» $ °á°ú = backticks-> ½ÇÇà ( "ls -la) / "); ¶Ç´Â ¸í·ÉÀ» ¸¸µé°í ³ªÁß¿¡ ½ÇÇàÇÒ ¼ö ÀÖ½À´Ï´Ù. MY $ Command = Backticks-> New ("ls -la / "); # ... ¾à°£ÀÇ ¹°°ÇÀ»ÇϽʽÿÀ $ Command-> run (); °´Ã¼·Î ¸í·ÉÀ» »ý¼ºÇÏ¸é ¹éÆ®¸¯ ÆÐÅ°Áö ¼³Á¤À» ¹«½ÃÇÒ ¼öÀÖ´Â ±âȸ°¡ ÀÖ½À´Ï´Ù. $ backticks :: Chomeped = 0; MY $ CHOMPED_OUT = BACKICKS-> RUN ( 'ECHO "Hello)!"' 'comhed'=> 1,) Á¦Ç°ÀÇ È¨ÆäÀÌÁö
µÞ¸¶´ç °ü·Ã ¼ÒÇÁÆ®¿þ¾î