in reply to Re: How to use Substr to bulk substitutions?
in thread How to use Substr to bulk substitutions?

Yes it is related to that. I am trying to find out perticular tags in html for example a tags to skip them in my processing of making all url clickable. Simple I am trying to replace all urls with a href so that they become clickable. For that I am trying to skip a tags and all others with url will have a href inserted

  • Comment on Re^2: How to use Substr to bulk substitutions?

Replies are listed 'Best First'.
Re^3: How to use Substr to bulk substitutions?
by holli (Abbot) on May 17, 2019 at 08:43 UTC
    Simple I am trying to replace all urls with a href
    You mean, urls in text nodes? Someting like this? 
    use Modern::Perl;
use HTML::Parser;
use Regexp::Common qw( URI );

my $parser = HTML::Parser->new
(
    default_h => [sub { 
        my $something = shift;
        print $something 
    }, 'text'],
    
    text_h    => [sub { 
        my $text = shift;
        
        # Guess a bit and add a scheme to www
        # This might be bit too aggressive
        $text =~ s^ www\.^ http://www.^gi;
        
        # Replace URLs in the text by links
        $text =~ s^($RE{URI})^<a href="$1">$1</a>^g;
        
        print $text;
    }, 'text'],
);

$parser->parse( join "", <DATA>) || die $!;
                       
__DATA__
<!DOCTYPE html>
<html>
    <head><title>Test data </title></head>
    <body>
        Some URL without scheme www.perlmonks.org 
        and a plain URL with scheme http://perl.org
        and even ftp ftp://ftpserver.foo.com
        and an existing <a href="https://metacpan.org/">link</a> 
    </body>
</html>

    [download]
    Output: 
    <!DOCTYPE html>
<html>
    <head><title>Test data </title></head>
    <body>
        Some URL without scheme <a href="www.perlmonks.org">www.perlmo
+nks.org</a>
        and a plain URL with scheme <a href="http://perl.org">http://p
+erl.org</a>
        and even ftp <a href="ftp://ftpserver.foo.com">ftp://ftpserver
+.foo.com</a>
        and an existing <a href="https://metacpan.org/">link</a> 
    </body>
</html>

    [download]


    holli

    You can lead your users to water, but alas, you cannot drown them.
[reply]
[d/l]
[select]
Re^3: How to use Substr to bulk substitutions?
by hippo (Archbishop) on May 17, 2019 at 08:08 UTC
[reply]

In Section Seekers of Perl Wisdom