perl -wlne '
my @sites = /(?:^|[;:])\s*([^\s:;]+)/g;
print qq(<a href="mysite.net/$_" >$_</a>) for @sites;
' page.txt
Regards,In reply to Re: sed awk to perl help
by xicheng
in thread sed awk to perl help
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |