Gossamer Forum: General: Perl Programming: Regex Problems....

Apr 16, 2003, 1:10 AM

Andy

Veteran / Moderator (17364 posts)

Apr 16, 2003, 1:10 AM

Post #1 of 3

Shortcut

Regex Problems....

Hi. I'm wondering if someone can help me here. I have been playing with making a news retrival script from clari.net. I have the following code that will grab the actual article from their site, and put it into an array;

Code:
        my @grabbed_article = get($url); 

         my $start = 0; 
         my $article; 
         foreach my $line (@grabbed_article) {  

if ($line =~ /\<H1\>/) { $start = 1; $article .= $line; }

            if ($start) { $article .= $line; } 

            if ($line =~ /\<hr noshade vspace=5\>/) { last; } 


         }

The problem seems to be, that the part in red cuts in right at the top of the page....does anyone have any ideas why the regex in place there is doing that?

Thanks in advance.

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

Apr 16, 2003, 2:04 AM

Paul

Veteran (19537 posts)

Apr 16, 2003, 2:04 AM

Post #2 of 3

Shortcut

Re: [Andy] Regex Problems.... In reply to

Why not just do:

Code:
my ($string) = get($url); 
my ($wanted) = $string =~ /<H1>(.+?)<hr noshade vspace=5>/si;

Notice how you don't need to escape angular brackets either =)

Apr 16, 2003, 6:43 AM

Andy

Veteran / Moderator (17364 posts)

Apr 16, 2003, 6:43 AM

Post #3 of 3

Shortcut

Re: [Paul] Regex Problems.... In reply to

Thanks Paul, it worked a treat Smile

Cheers

Andy (mod)
andy@ultranerds.co.uk