On May 17, 2004, at 11:16 PM, Andrew Gaffney wrote:
Roman Hanousek wrote:Hi All I have bunch of files that contain code like this:
What I am trying to do is match <ps:img and this /> then check that this
piece of code contains a alt= tag.
<ps:img page="/images/portal/arrow_down.gif" border="0"
width="9" height="6"
alt="${string['lists.list.sort.ascending.alt']}"
title="${string['lists.list.sort.ascending.alt']}" />
And if it doen't print the lines where it's missing to screen or file.
while($input =~ |<ps:img .+(alt\s*=\s*\".+\")?.+/>|sgc) { print "Missing ALT\n" if(! defined $1); }
That doesn't give you line numbers, but it does give you an idea of where to start.
Be careful. Matching HTML-style markup with regexen is surprisingly tricky. I suspect the version above would not work well in many instances. Remember .+ is super greedy, more so since you allow it to swallow \n as well. The above pattern should match the first <ps:img, swallow the rest of ALL the data and then backup until it can find a />. That's probably not going to work out to well, in many cases.
Depending on how much is known about the tags, you might have more luck with a pattern like:
m!<ps:img([^>]+)/>!g
From there it's pretty easy to check $1 for an alt="...", or whatever.
Hope that helps.
James
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
