Re: Always Looping


laziness, impatience, and hubris
	PerlMonks

Re: Always Looping

by Corion (Patriarch)

on Mar 27, 2006 at 07:12 UTC ( [id://539381]=note: print w/replies, xml )

Need Help??

in reply to Always Looping

The problem is that you are not using strict, or rather, you are not Coping With Scoping. You actually have two variables $size - one, the global $size which you set to 0 at the top of your program, and another, $size, which you declare in the loop and set it to the length of your data. You should do away with the inner my and the script should work:

use strict;
use LWP::Simple;
my $size;

my $data2;
while (! length $data2) {
    $data2 = LWP::Simple::get($site);
    if (! length $data2) {
        warn "Couldn't get a response from '$site', sleeping";
        sleep 5; # give the website some time
    }:
};

...
[download]

Comment on Re: Always Looping Select or Download Code

Replies are listed 'Best First'.

Re^2: Always Looping
by reasonablekeith (Deacon) on Mar 27, 2006 at 08:00 UTC

use strict;
use LWP::Simple;

my $data = "";
my $try_count = 0;

while ($try_count++ < 5) {
    $data = LWP::Simple::get('http://somedomain/');
    last if defined $data;
    print "were is this file?\n";
    sleep(5);
};
[download]

---
my name's not Keith, and I'm not reasonable.

[reply]
[d/l]

In Section Seekers of Perl Wisdom