Thank you all for the support.
The problem was using the same file handle about 4 times.
Malcolm
----- Original Message -----
From: "Sisyphus" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: 16 March 2002 21:37
Subject: Re: Looping
> Hi Malcolm,
>
> That's a fair bit of code to wade through :-)
>
> I'd be taking a close look at the following segment.
>
> foreach $line (@lines) {
> if ($line =~ /\<li\>\<a href\=\"([^\"]+)\">([^<]+)<\/a>/) {
> if ($url eq $1) {
> &repeat_url;
> }
> }
> }
>
> If $url does in fact equal $1, then the script's gunna exit - because
that's
> what 'sub repeat_url' tells it to do.
>
> I doubt that's what you would want a sub named 'repeat_url' to do. What is
> the intended function of 'repeat_url' ?
>
> Cheers,
> Rob
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
