Re: [Áú¹®] Á¤±Ô½Ä Ç¥Çö ....

[Jinyeong Kim <prince@xxxxxxxxx>]

\w[\w\-_\.]+@[\w\-_\.]+\w

°ú °°ÀÌ ÇÏ¸é µÇÁö ¾ÊÀ»±î¿ä?

¿øÇÏ´Â°Ô ¸Â´ÂÁö´Â ¸ð¸£Áö¸¸,

´ÙÀ½°ú °°ÀÌ µÇ´Â±º¿ä.

bash-2.03$ ./test.pl 
...person@some.net---

person@some.net

bash-2.03$ cat ./test.pl
#!/usr/local/bin/perl -w

if (<STDIN> =~ /(\w[\w\-_\.]+@[\w\-_\.]+\w)/)
{
    print "\n$1\n";
}

-- 
 /*
  * Jinyeong Kim
  * prince@snags.snu.ac.kr http://snags.snu.ac.kr/~prince/
  * SNAGs (System & Network Administrators' Group in SNU)
  */
--
Please look and take part in KFUG FAQ: <http://www.kr.freebsd.org/FAQ-kr/>
To Unsubscribe: send mail to majordomo@kr.FreeBSD.org
with "unsubscribe questions" in the BODY of the message