投稿されたURLが書式に合っているかを検査します。 URLに「http://」と「.」が含まれているかを検査し、問題なければリンク処理をしています。
プログラム例:
if( $url eq 'http://' || $url eq '' ) {
$url = '';
} elsif( $url =~ /(http\:\/\/)([\w\+\-]+)\.([\w\+\-]+)/ ) {
$url = qq( <a href = "$url">$url</a> );
} else {
exit( 0 );
}