in reply to Re: Using REDO in Subroutine, need better way?
in thread Using REDO in Subroutine, need better way?
my $terminal_failure = 0; while (1) { # Get page my $response = $ua->post( $page, \%form ); if ($response->is_success) { $data = $response->content; last; } sleep 100; $terminal_failure++; # Die if no data for 3 hours send email alert. if ( $terminal_failure == 108 ) { my $failure = $response->status_line; my $msg = MIME::Lite->new( From =>'me@alerter.com', To =>'my@email.com Subject =>"", Data => "HTML download fail: $failure" ); $msg->send; die $failure; } }
|
|---|