Re: Creating links in the URLs in a text paragraph

Something like,

if ($this_portion_of_string_is_a_url) {
  $this_portion_of_string_is_a_url =
    qq(<a href="$this_portion_of_string_is_a_url">$this_portion_of_str
+ing_is_a_url</a>);
}
[download]

But, you may want to borrow from Pod::Html a subroutine called make_URL_href:

sub make_URL_href($){
    my( $url ) = @_;
    if( $url !~
        s{^(http:[-\w/#~:.+=&%@!]+)(\?.*)$}{<a href="$1$2">$1</a>}i ){
        $url = "<a href=\"$url\">$url</a>";
    }
    return $url;
}
[download]

Update: fixed paragraph

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!

Comment on Re: Creating links in the URLs in a text paragraph Select or Download Code

Replies are listed 'Best First'.
Re^2: Creating links in the URLs in a text paragraph by Anonymous Monk on Jun 25, 2007 at 04:15 UTC
So, what you are saying is that I can take something like this: $_pageOfContent = qq~ Hello my name is so and so, and I really recommend this website becaus +e I think it has some really cool ideas, you can find it at the websi +te located on http://www.mydom.com and also on this other one here ht +tp://www.yourdom.com. Thank you much, Me~; $_pageOfContent = make_URL_href($_pageOfContent); # Now $_pageOfContent will have this content: #Hello my name is so and so, and I really recommend this #website beca +use I think it has some really cool ideas, #you can find it at the we +bsite located on #<a href="http://www.mydom.com">http://www.mydom.com</a> #and also on +this other one here #<a href="http://www.yourdom.com">http://www.yourdom.com</a>. # #Thank you much, #Me #? sub make_URL_href($){ my( $url ) = @_; if( $url !~ s{^(http:[-\w/#~:.+=&%@!]+)(\?.*)$}{<a href="$1$2">$1</a>}i ){ $url = "<a href=\"$url\">$url</a>"; } return $url; } [download] Is that right? thank you.	[reply] [d/l]
Re^3: Creating links in the URLs in a text paragraph by CountZero (Bishop) on Jun 25, 2007 at 05:57 UTC
Why don't you just try it and see if it works? At last count very few computers went supercritical and blew up from running a piece of Perl-script. It is quite safe to do, you know. CountZero "It can't get any worse **BOOOM** It got worse."	[reply]