Einfache While-Schleife bis Interverbindung da ist (gelöst) - #141176 (Allgemeines zu Perl)

kristian

2010-09-05 08:44

User since
2005-04-14
684 Artikel
BenutzerIn

So ganz funktioniert das IMHO nicht.
1.)

Code: (dl )

1
2

# Set the useragent timeout
	$ua->timeout(30);

2.)

Code: (dl )

return '' if $bad  > 2;

Da sind wir schon über die 30 Sekunden weg.

3.)

Code: (dl )

@RELIABLE_HTTP = (
		# These are some initial trivial checks.
		# The regex are case-sensitive to at least
		# deal with the "couldn't get site.com case".
		'http://google.com/' => sub { /About Google/      },
		'http://yahoo.com/'  => sub { /Yahoo!/            },
		'http://amazon.com/' => sub { /Amazon/ and /Cart/ },
		'http://cnn.com/'    => sub { /CNN/               },
	);

Wer das mal im Land seiner Wahl testet wird feststellen dass im Falle Google "About Google" möglicherweise nicht auftaucht.
Das scheint mir nicht sinnig.
Last edited: 2010-09-05 09:04:00 +0200 (CEST)