in reply to Regex match last

Try this. It uses @ as alternate regex-character (instead of /) and captures any (single) tag within a line. 
#!/usr/bin/perl

use strict;
use warnings;

my $data = '<c:t="AD2343"/><c:p>65677676</c:p>';

if ($data =~ m@.*(<c:[^>]*/>).*@) {
    print("Match: [$1]\n");
}

[download]

Replies are listed 'Best First'.
Re^2: Regex match last
by Anonymous Monk on Aug 20, 2012 at 10:34 UTC

    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]
[reply]
[d/l]
[select]

      #! 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]

      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]
      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]
      show your code
[reply]

In Section Seekers of Perl Wisdom