Re^3: regex not matching how I want it to :(

okay, once again sorry I am really tired, I stripped my code with all unnecessary stuff and this is what I come up with, the result is very strange for me


$line='<p><a href="test1.htm"> test1</a><br> <a href="test2.htm"> test
+2</a><br> <a href="test3.htm"> test3</a><br> <a href="test4.htm"> tes
+t4</a><br>';

while ( $line=~/<a href=\"(.*?)\.htm\">/ig ) {
    $tmp=$1;

    print "LINE: $line\n";
    print "TMP: $tmp KK\n\n";

    $line=~s/<a href=\"$tmp.htm\">/<a href=\"\/xxx.html\">/i;
}
[download]

Comment on Re^3: regex not matching how I want it to :( Download Code

Replies are listed 'Best First'.
Re^4: regex not matching how I want it to :( by glwa (Acolyte) on Oct 18, 2018 at 20:25 UTC
on the other hand Regexp::Debugger - amazing tool, thank you. It shows what the problem and it is what I suspected, but I have no idea why is it matching this way and I have no idea how to fix this. As you see in my code I have a s/ replace and after first replace the matching is weird	[reply]
Re^5: regex not matching how I want it to :( by glwa (Acolyte) on Oct 18, 2018 at 20:28 UTC
so on the second pass of while the regex is more or less like this: `$line='<p><a href="xxx.html"> test1</a><br> <a href="test2.htm"> test2 +</a><br> <a href="test3.htm"> test3</a><br> <a href="test4.htm"> test +4</a><br>'; $line=~/<a href=\"(.*?)\.htm\">/ig; $tmp=$1; print "LINE: $line\n"; print "TMP: $tmp KK\n\n";` [download] why is it matching: xxx.html"> test1 <a href="test2 and not "test2"? how do I make it match test2, thank you	[reply] [d/l]
Re^6: regex not matching how I want it to :( by tybalt89 (Monsignor) on Oct 18, 2018 at 20:43 UTC
Don't do multiple passes of the "while". In fact, don't do a "while" at all :) `#!/usr/bin/perl -l # https://perlmonks.org/?node_id=1224264 use strict; use warnings; my $line = '<p><a href="test1.htm"> test1</a><br> <a href="test2.htm"> + test2</a><br> <a href="test3.htm">test3</a><br> <a href="test4.htm"> + test4</a><br>'; my @replacements = 'xxx0001' .. 'xxx0100'; $line =~ s/<a href=\"\K.*?(?=\.htm\">)/ shift @replacements /gie; print $line;` [download]	[reply] [d/l]