- or download this
m!<a(\s+[\w]+\s*\=\s*('[^']*'|"[^"]*"))*\s*>.*?</a\s*>!i
- or download this
m!<a(\s+[\w]+\s*\=\s*('[^']*'|"[^"]*"|[a-z0-9\-\._:]+))*\s*>.*?</a\s*>
+!i
- or download this
#!/usr/bin/perl
...
m!<a(\s+[\w]+\s*\=\s*('[^']*'|"[^"]*"))*\s*>.*?</a\s*>!i ? pri
+nt "match: " : print "no match: ";
print;
}
- or download this
<a href="foo">blah</a>
<a href="foo>blah</a>
...
<a href="foo">blah</b>
<a href="foo's">bar</a>
<a name="blah" href="foo" >bar</a>
- or download this
match: <a href="foo">blah</a>
no match: <a href="foo>blah</a>
...
no match: <a href="foo">blah</b>
match: <a href="foo's">bar</a>
match: <a name="blah" href="foo" >bar</a>