Á¤±Ô½Ä »ç¿ë½Ã ½ÇÁ¦ ÀÏÄ¡µÈ ºÎºÐÀÌ ¾î¶² ³»¿ëÀÎÁö ¾Ë°í ½ÍÀ» °æ¿ì°¡ ÀÖ½À´Ï´Ù. ƯÈ÷ µð¹ö±ëÀ» ÇÒ ¶§°¡ ´õ¿í ±×·¸½À´Ï´Ù. ÀÌ ¶§ »ç¿ëÇÏ´Â °ÍÀÌ $`, $&, $' Ư¼öº¯¼öÀÔ´Ï´Ù.
[ÇÁ·Î±×·¥ÄÚµå]$var = 'wana banana?';
if( $var =~ /b?a(na)+/ ) {
print "¾ß ! ¹Ù³ª³ª´Ù !!\n";
} |
À§¿Í °°Àº Äڵ忡¼ ½ÇÁ¦ ÀÏÄ¡µÈ ºÎºÐÀ» Ãâ·Â ÇÏ·Á¸é print "$&\n";ÇÏ¸é µË´Ï´Ù. Á»´õ ¸íÈ®È÷ Çϱâ À§Çؼ ÀÏÄ¡µÈ ºÎºÐÀÇ ¾ÕºÎºÐÀ» ³ªÅ¸³»´Â $`¿Í ÀÏÄ¡µÈ ºÎºÐÀÇ µÞºÎºÐÀ» ³ªÅ¸³»´Â $'¸¦ °°ÀÌ Ãâ·ÂÇØ º¸¸é ´õ¿í ¸íÈ®ÇÒ °ÍÀÔ´Ï´Ù.
[ÇÁ·Î±×·¥ÄÚµå]$var = 'wana banana?';
if( $var =~ /b?a(na)+/ ) {
print "¾ß ! ¹Ù³ª³ª´Ù !!\n";
print "¾ÕÂÊ: $`\n",
"ÀÏÄ¡: $&\n",
"µÞÂÊ: $'\n";
} |
ÀÌ ÇÁ·Î±×·¥À» ½ÇÇàÇÏ¿© Ãâ·ÂµÈ ³»¿ëÀº ´ÙÀ½°ú °°½À´Ï´Ù.
¾ß ! ¹Ù³ª³ª´Ù !!
¾ÕÂÊ: w
ÀÏÄ¡: ana
µÞÂÊ: banana?
¿¹»óÇÑ °Í°ú ÀÏÄ¡ÇÏ¿´½À´Ï±î ?
À̱ÛÀº http://www.perl.or.kr/tips/whatmatched.html ¿¡¼
¹ßÃéµÈ ³»¿ëÀÔ´Ï´Ù.