Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

replacing clickable web and email addresses

by markolus (Initiate)
on Mar 22, 2002 at 13:16 UTC ( #153547=perlquestion: print w/replies, xml ) Need Help??
markolus has asked for the wisdom of the Perl Monks concerning the following question:

Hi there -- I am currently involved in trying to do two things:

1) take input text (in the form of a string parameter value to a script) of potentially email and web addresses and replace them with clickable alternatives.

i.e. to be replaced/rewritten as <a href="/cgi-bin/"></a> and to be rewritten as <a href=""></a>

To to do the above I am working using both Email::Find and URI::Find although I have been using the s!(www.[^\s]+)!<a href="/cgi-bin/$1">$1</a>!gi piece of code up to now for web addresses.

Now the bit that is causing a bit of a headache is doing it the other way round.

i.e. converting the clickable links as shown above back to their text original. Do I need a wierd and wonderful regex and substitition piece of code or is there a module that will make my life easy? I need to be able to reproduce my html link format and not just have a simple target=_blank href?

Any ideas?

Replies are listed 'Best First'.
Re: replacing clickable web and email addresses
by dreadpiratepeter (Priest) on Mar 22, 2002 at 14:16 UTC
    Try HTML::Parser. You should be able to pull the anchors out of your document and replace them with whatever you'd like.

    "I am Jack's utter lack of disbelief"
Re: replacing clickable web and email addresses
by Mask (Pilgrim) on Mar 22, 2002 at 14:50 UTC
Re: replacing clickable web and email addresses
by AidanLee (Chaplain) on Mar 22, 2002 at 14:17 UTC
    Try HTML::Parser. using regexes to parse HTML is a nightmare as many will attest to, and HTML::Parser is usually the defacto reccommendation around here when you've got HTML to munge.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://153547]
Approved by root
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (3)
As of 2018-07-21 12:05 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (448 votes). Check out past polls.