Re: regex match word , don't match word preceeded by slash

#!/usr/bin/perl --

use strict;
use warnings;

use HTML::TreeBuilder;

my $html = '<html><body>
<a href="/cgi-programming-with-perl.zip">cgi-programming-with-perl.zip
+</a>
<a href="cgi-programming-with-perl.zip">cgi-programming-with-perl.zip<
+/a>
</body></html>';

{
    my $tree = HTML::TreeBuilder->new();
    
    $tree->ignore_ignorable_whitespace(0);
    $tree->no_space_compacting(1);

    $tree->parse( $html )->eof;
    $tree->look_down( qw' _tag a href ', qr!^/! ,
        sub {
            $_[0]->push_content(
                HTML::Element->new('b')->push_content(
                    $_[0]->detach_content
                ),
            );
            return;
        },
    );

    print $tree->as_HTML('<>&','    ',{}), "\n";
}
__END__
<html>
    <head>
    </head>
    <body>
<a href="/cgi-programming-with-perl.zip"><b>cgi-programming-with-perl.
+zip</b></a>
<a href="cgi-programming-with-perl.zip">cgi-programming-with-perl.zip<
+/a>
</body>
</html>
[download]

Comment on Re: regex match word , don't match word preceeded by slash Download Code

Replies are listed 'Best First'.
Re^2: regex match word , don't match word preceeded by slash by lepetitalbert (Abbot) on Nov 19, 2010 at 03:19 UTC
Hi again kcott, I tried so many combinations I can't remember why those spaces where there ! thank you again I'm trying to undertand `(?<![-\w./])` [download] so the / is the one preceeding the word but I don't get the -\w. if someone has 2 minutes left :) thank you too Anonymous Monk, I took a look at HTML::TreeBuilder but I wouldn't have found your solution in one afternoon ! ( is that english ? ) Have a nice day ! "There is only one good, namely knowledge, and only one evil, namely ignorance." Socrates	[reply] [d/l]
Re^3: regex match word , don't match word preceeded by slash by kcott (Archbishop) on Nov 19, 2010 at 03:54 UTC
In the `href` part, if you just have the slash in the lookbehind, the regex engine finds that `gi-programming-with-perl.zip` is a match and you end up with: `/c<b>gi-programming-with-perl.zip</b>`. By saying not a slash or any other character I'm trying to match, `/cgi-programming-with-perl.zip` does not match at all; the content, however, has a greater-than in that position (which is neither a slash nor a character your looking for, i.e. `[-\w.]`) so it does match. In my second example, the whitespace doesn't match `[-\w./]`, so it works here also. -- Ken	[reply] [d/l] [select]
Re^4: regex match word , don't match word preceeded by slash by lepetitalbert (Abbot) on Nov 20, 2010 at 18:29 UTC
Thanks again :) "There is only one good, namely knowledge, and only one evil, namely ignorance." Socrates	[reply]


No such thing as a small change
	PerlMonks