Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
Problems? Is your data what you think it is?
 
PerlMonks  

Re^3: Regex match last

by Neighbour (Friar)
on Aug 20, 2012 at 11:32 UTC ( #988431=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    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
    +";
    
  2. or download this
    Matches found:
    <w:pStyle w:val="Standard"/>,
    ...
    <w:sz w:val="20"/>,
    <w:szCs w:val="20"/>,
    <w:r w:rsidRPr="00AD741F"/>
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://988431]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2014-04-20 16:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls