Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

regex to extract text

by jonnyfolk (Vicar)
on Jan 18, 2009 at 17:20 UTC ( #737169=perlquestion: print w/replies, xml ) Need Help??
jonnyfolk has asked for the wisdom of the Perl Monks concerning the following question:

The following code is ignoring the text I would like to extract from html:
<div class="detailline_address"> 15480 W 66TH AVE Whiten, CO 86663 </div>
and the regex is:
if ($r =~ m#<div class="detailline_address">\s*?(.*?)\s*?</div>#) { p( +"Address: $1"); }
where subroutine p simply formats the print command.

Could someone give me a few pointers please?

Replies are listed 'Best First'.
Re: regex to extract text
by CountZero (Bishop) on Jan 18, 2009 at 17:31 UTC
    m/<div class="detailline_address">\s*(.*)</div>/s
    will do the trick.

    "dot" does not match newline unless you add the s-option, meaning you treat the data to be matched as a single string and \n looses its special status.

    But of course, one should not deal with HTML through a regexp but using a parser (such as HTML::Parser)


    A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

      Thanks for the fix and the advice - I'll be straight onto the parser!!
        Note that CountZero's solution (based on your initial attempt, just adding the necessary "s" modifier) is doing a greedy match with '(.*)' -- this means that if there are two or more instances of '</div>' following the address section, the match will extend to the farthest one.

        Using '(.*?)' instead, to specify a non-greedy match, will do what you really want, though as pointed out already, you probably should be getting acquainted with proper HTML parsing. It takes a bit of learning to catch on, but in the long run a parsing module will lead you to quicker and better solutions than what can be done with regex matching.

      A small point of style, but

      m{(?s)<div class="detailline_address">\s*(.*?)</div>}
      avoids endweight problems by pushing the modifier up front. There's also the case for always using (?msx) at the beginning of your regexes unless there's a damned good reason not to. In this case, the damned good reason not to is: "You're attempting to parse XML with a regular expression! Are you mad?"

Re: regex to extract text
by AnomalousMonk (Chancellor) on Jan 18, 2009 at 18:27 UTC

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://737169]
Front-paged by Arunbear
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2018-06-21 17:16 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (118 votes). Check out past polls.