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]

Replies are listed 'Best First'.
Re^2: Always Looping
by reasonablekeith (Deacon) on Mar 27, 2006 at 08:00 UTC
    I'd always try to avoid a loop which could continue to fail like this. What if the file is deleted? You'll be looping forever. 
    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]
    I also changed the criteria for success to check for 'definedness', because the LWP::Simple::get() function will explictly return undef if it fails.
    ---
    my name's not Keith, and I'm not reasonable.
[reply]
[d/l]

In Section Seekers of Perl Wisdom