How to change a url to hyperlink?

[monkey2007]

Hi,

Thanks for reading this. I have searched all over the web but found no solution. How would one change a url to a hyperlink and email the hyperlink...I parsed through an html file to get this

</table><br><div><a class="red_link" href="http://dabcd123456:80/results/report.jsp?a=HGUYU&amp;b=HGUYU&amp;c=%2Fc%2B%2Btest%2F&amp;id=%3Ademd140149%3A1193283688721.html%2BDefault%2Bsmith%3A">TCM report &gt;&gt;&gt;</a></div><br><table width="95%" border="1" bordercolor="#999999" cellpadding="0" cellspacing="0">
 

and I parse and got the url out:
"http://dabcd123456:80/results/report.jsp?a=HG UYU&b=HGUYU &c=%2Fc%2B% 2Btest%2F&i d=%3Ademd140149 %3A119328368872 1.html%2BDefaul t%2Bsmith%3A">

How can I change the url into a hyperlink and send that link in an email to someone?

Thanks,
Monkey

[numberwhun]

What have you tried thus far? Can you please share your code with us?

Regards,

Jeff

[monkey2007]

Hi,

I tried a bunch of stuff, but they don't work, so I deleted them already..this is the last thing I tried ##my $content = get $url; that doesn't work either. I also tried the string replacement, but that's too cumbersome and if the url changes it would be no good! $text =~ s[($RE{URI}{HTTP} )] doesn't work
This is what I have so far that works in extracting the URL

 my($File) = @_;
  open(STDIN, $File) || die("Could not open file!");
  while(<STDIN>){
     my($data)=$_;
     ##print "$data \n";
     if ($data =~ m/(http.*).+report/i ){
        ##print "$1 \n"
     }   
 }
close(STDIN);
 

Please help!

Thanks,
Monkey

[numberwhun]

Monkey,

In your original post and in the last post, I had to place the necessary code tags in your post. Please be sure, per the document in the link, to add them to all future code posting.

Regards,

Moderator

[eWish]

Would you please post some sample data from the file you are using? If you are getting a match into $1 and it contains only the url then you can do something like this.

my($File) = @_;
  open(STDIN, $File) || die("Could not open file!");
       while(my $data = <STDIN>){
            if ($data =~ m/(http.*).+report/i ){
                my $link  = qq{<a href="$1">Click Me</a>};
                  &send_email($link);  #Send $link as an arugement to a sub that will then include the $link in the body of the message.
             }   
         }
close(STDIN);
 
sub send_email {
 
    my ($email_link) = @_;
 
    my $message_type = 'text/html';
    my $from_email = '[e-mail]';
    my $to_email = '[e-mail]';
    my $subject = 'Requested Link';    
    my $message = qq{Hello here is your link $email_link};
 
    #You can use any email module you wish.  Example given with Mime::Lite;
    use Mime::Lite;
 
    my $msg = MIME::Lite->new(
        From    => $from_email,
        To        => $to_email,                
        Subject => $subject,
        Type    => $message_type,
        Data    => $message
    );
 
    $msg->send() || die "Couldn't send message:";
}

[monkey2007]

Hi eWish,

Thank you for your response, this is what I need. Thanks so much. You save me hours =)

Monkey

[eWish]

Glad to hear it helped. :)