Re: Re: Global regex giving up too soon

[Wassercrats]

For the given example string, there's only one "href", so the /g is pointless as well.

I figured that was my problem. That's why I tried using /c, but I couldn't find a good description of how it worked. So basically, I guess there is no way to get /g to look over the entire regex, so I'll have to use while $& or establish that there's an href earlier so I don't have to use it in the regex.

Anyway, thanks for not telling me to use a module!

[Abigail-II]

So basically, I guess there is no way to get /g to look over the entire regex,

What do you mean by "looking over the entire regex"? /g means "match repeatedly (without overlap)".

Abigail

[Wassercrats]

Well, does it make sense that there is a substitution made in more than one iteration of my loop, but if I use the regex alone, there are fewer (only one) substitutions made?

[Abigail-II]

Yes, of course. Consider:

#!/usr/bin/perl

use strict;  
use warnings;

my $str = "1" x 5;

$_ = $str;
print "Single s///g:\n";
print "Before: [$_]; ";
s/1(1+)/$1/g;
print "After [$_]\n";

$_ = $str;
print "Loop s///:\n";
while (1) {
    print "Before: [$_]; "; 
    last unless s/1(1+)/$1/;
    print "After: [$_]\n";
}
print "\n";

__END__
Single s///g:
Before: [11111]; After [1111]
Loop s///:
Before: [11111]; After: [1111]
Before: [1111]; After: [111]
Before: [111]; After: [11]
Before: [11]; After: [1]
Before: [1];

Abigail

[jdporter]

thanks for not telling me to use a module

But he did tell you (or rather, nudge you) to use warnings, which you blithely ignored. At some point you should step up to the realization that perl (the interpreter) can help you write better, less buggy code.

thanks for not telling me to use a module

Then I'll do the honors:
• HTML::Parser
• HTML::PullParser
• HTML::TokeParser
• HTML::LinkExtor
• HTML::TreeBuilder
• etc. etc.
Ah, here's an interesting thread: How to use Regular Expressions with HTML
Please read the whole thread, esp. the replies by Ovid.