At 15:20 +0200 2002.09.23, allan juul wrote: >#!/usr/bin/perl -w > >use strict; >use LWP::UserAgent; > >my $ua = LWP::UserAgent->new(env_proxy => 1, > keep_alive => 1, > timeout => 30, > ); > >my $msg = "";
Create $msg variable. >my $browser = LWP::UserAgent->new; >my $counter = 0; > >my @urls = qw(http://www.bullitt.suite.dk/index.html >http://www.bullitt.suite.dk/404.html http://www.bullitt.suite.dk/index.html); > >foreach my $url (@urls) { > $counter++; > my $response = $browser->get($url,); > my $t_response = $ua->get($url); > > $msg = $t_response->status_line unless $t_response->is_success; Assign $msg variable. > if ($msg eq "") { > print "\n$counter OK: $url\n"; > } else { > print "\n$counter ERROR: $msg for $url\n"; > } >} > > >__END__ You do not ever reset $msg each time in the loop. Try putting 'my $msg = "";' inside the loop, not outside. -- Chris Nandor [EMAIL PROTECTED] http://pudge.net/ Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
