Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Perl, SQLite3, and Parsing the Chatterbox Feed.

by pc88mxer (Vicar)
on Feb 14, 2008 at 06:15 UTC ( [id://667882]=note: print w/replies, xml ) Need Help??


in reply to Perl, SQLite3, and Parsing the Chatterbox Feed.

You definitely need to use less greedy regex's. Instead of: 

my $pat     = qr{ .*<author>(.*)<\/author>.*<text>(.*)<\/text }xs;

[download]

use: 

my $pat     = qr{ .*?<author>(.*?)<\/author>.*?<text>(.*?)<\/text }xs;

[download]

Also, I'm not sure you are using the /g option correctly. I've had better luck with: 

while ($data =~ m/$pat/gc) {
   my ($auth, $text) = ($1, $2);
   for( $text ) {
       s/[ ]+/ /g;
       s/^\s+//;
       s/\s+$//;
   }
  printf "%s: %s\n\n" , $auth , $text;
}

[download]

Replies are listed 'Best First'.
Re^2: Perl, SQLite3, and Parsing the Chatterbox Feed.
by ikegami (Patriarch) on Feb 14, 2008 at 18:35 UTC
    I don't see why either of you are using /c. It's definitely not useful, and I suspect it's harmful.
[reply]
[d/l]

      I am responsible for /c in match condition & simultaneous assignment in while loop (for replied in hurry, misread the /c description). Here is what works ... 

      #  Without /g, it would be an endless loop for match will
#  always start at the start of $data.
while ( $data =~ m/$parse/g )
{
  my ( $auth , $text ) = ( "$1" , "$2" );
  ...
}

      [download]

      (Circa 2001-2005, there are some examples of XML::(Twig|Simple) use to parse the chatterbox XML around here somewhere.)

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://667882]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2024-04-16 05:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found