Re^2: Regex match last

This does not match the required text in the following code :

<w:body><w:p w:rsidR="00A654E7" w:rsidRPr="00AD741F" w:rsidRDefault="00A654E7" w:rsidP="00A654E7"><w:pPr><w:pStyle w:val="Standard"/><w:rPr><w:rFonts w:asciiTheme="minorHAnsi" w:hAnsiTheme="minorHAnsi" w:cstheme="minorHAnsi"/><w:sz w:val="20"/><w:szCs w:val="20"/></w:rPr></w:pPr><w:r w:rsidRPr="00AD741F"/></w:body>

I want only these to be matched :

1<w:pStyle w:val="Standard"/>
2<w:rPr><w:rFonts w:asciiTheme="minorHAnsi" w:hAnsiTheme="minorHAnsi" 
+w:cstheme="minorHAnsi"/>
3<w:sz w:val="20"/>
4<w:r w:rsidRPr="00AD741F"/>
[download]

Comment on Re^2: Regex match last Select or Download Code

Replies are listed 'Best First'.
Re^3: Regex match last by BrowserUk (Patriarch) on Aug 20, 2012 at 11:28 UTC
`#! perl -slw use strict; m[(<[^/>]+/>)] and print "'$1'" while <DATA>; __DATA__ <w:body> <w:p w:rsidR="00A654E7" w:rsidRPr="00AD741F" w:rsidRDefault="00A654E7 +" w:rsidP="00A654E7"> <w:pPr> <w:pStyle w:val="Standard"/> <w:rPr> <w:rFonts w:asciiTheme="minorHAnsi" w:hAnsiTheme="minorHAnsi" w:cs +theme="minorHAnsi"/> <w:sz w:val="20"/> <w:szCs w:val="20"/> </w:rPr> </w:pPr> <w:r w:rsidRPr="00AD741F"/> </w:body>` [download] Outputs: `C:\test>junk23 '<w:pStyle w:val="Standard"/>' '<w:rFonts w:asciiTheme="minorHAnsi" w:hAnsiTheme="minorHAnsi" w:csthe +me="minorHAnsi"/>' '<w:sz w:val="20"/>' '<w:szCs w:val="20"/>' '<w:r w:rsidRPr="00AD741F"/>'` [download] BTW: Your sample XML is broken. The second level tag, `<w:p ...>` is never closed which will break strict XML parsers With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l] [select]
Re^3: Regex match last by MidLifeXis (Monsignor) on Aug 20, 2012 at 12:30 UTC
No kidding. Your original post specified `<c:.../>` and your current 'does not match' code uses `<w:.../>`. You asked for a tool to turn a cross-head screw into a board, and when given a cross-head screwdriver say 'ok, but I cannot use it to turn this slotted screw'. --MidLifeXis	[reply] [d/l] [select]
Re^3: Regex match last by Neighbour (Friar) on Aug 20, 2012 at 11:32 UTC
In that case, you'll want: `#!/usr/bin/perl use strict; use warnings; my $data = '<w:body><w:p w:rsidR="00A654E7" w:rsidRPr="00AD741F" w:rsi +dRDefault="00A654E7" w:rsidP="00A654E7"><w:pPr><w:pStyle w:val="Stand +ard"/><w:rPr><w:rFonts w:asciiTheme="minorHAnsi" w:hAnsiTheme="minorH +Ansi" w:cstheme="minorHAnsi"/><w:sz w:val="20"/><w:szCs w:val="20"/>< +/w:rPr></w:pPr><w:r w:rsidRPr="00AD741F"/></w:body>'; print "Matches found:\n" . join (",\n", $data =~ m@(<[^>]*/>)@g) . "\n +";` [download] Output: `Matches found: <w:pStyle w:val="Standard"/>, <w:rFonts w:asciiTheme="minorHAnsi" w:hAnsiTheme="minorHAnsi" w:csthem +e="minorHAnsi"/>, <w:sz w:val="20"/>, <w:szCs w:val="20"/>, <w:r w:rsidRPr="00AD741F"/>` [download]	[reply] [d/l] [select]
Re^3: Regex match last by Anonymous Monk on Aug 20, 2012 at 10:55 UTC
show your code	[reply]