Re^2: parsing a bibliography

[ww]

in reply to Re: parsing a bibliography
in thread parsing a bibliography

wonderful! Wish I could ++ your solution repeatedly! This writeup led to a "Eureka!" moment; the kind of haze-clearing that makes PM so valuable to beginners like me.

request: please add to our understanding by commenting lines of regex, esp that part of line8 reading

(?=[A-Z][a-z])

(grouped but non-capture??)

and in line13,

( [^\[]+ )

which, as I read Owl (pocket ref), means capture one-or-more of a class including not-an-open_BRKT and close_BRKT ...which doesn't make sense to me, and -- more importantly, doesn't seem to WORK that way.

[BrowserUk]

The regex commented.

my( $authors, $title, $thing, $pub, $date, $comment, $no ) = m/
    ^
    ## Author(s): Capture the minimum needed to satisfy that:
    ##    a) It ends with a '. '
    ##  b) And the next word is not an initial 
    ##        IE: Lookahead and check the next word starts with  
    ##         1 uppercase *and* one lowercase character.
    -( .*? \. ) \s(?=[A-Z][a-z])
    
    ## Title: Greedily capture something that ends with '. '
    ( .+ ) \.\s+
    
    ## Location: Non-greedily capture
    ## Ends with a ': '. 
    ## Doesn't contain a ':'
    ( [^:]+? ) : \s+
    
    ## Publisher: 
    ## Single word followed by a ', '
    (\S+), \s+
    
    ## Year: Capture Four digits
    ## Discard anything else upto '. '    
    ( \d{4} ) [^.]* \. \s+
    
    ## Comment: Greedy capture non-'[' characters
    ##  Ie. Stop capturing when you see a '['
    ( [^\[]+ )
    
    ## No: Capture 1 (or more) digits between '['  & ']'
    ## Discard any trailing space to the EOS.
    \[ ( \d+ ) \] \s* $
/x;