[해피CGI][cgimall][perl] url , email 자동링크 걸기

해피CGI 입니다.
perl 로 작업하다 보면 자동링크나 이메일을 걸 경우가 많습니다.
아래 처럼 문자열 치환 방법을 쓰면 간단히 해결됩니다.

URL 자동링크

[프로그램코드]

$comment_read =~s|\b(http://[-\w\./]+)|<a href='$1'>$1</a>|g;

이메일자동링크

[프로그램코드]

$comment_read =~s|\b([-\w\.]+@[-\w\.]+)|<a href='mailto:$1'>$1</a>|g;

좋은 하루되세요.