In einem Perl Script 2 IP-Adressen - #123806 (Allgemeines zu Perl)

NeWsOfTzzz

2009-08-01 15:24

User since
2009-07-26
4 Artikel
BenutzerIn
[default_avatar]

Ich benutz es jetzt für 4 IPs (ist aber so programmiert, dass man das Array beliebig erweitern kann):

Code (perl): (dl )

my $nextIpIndex = 0;
my @ips = ('xxx.xx.xx.xx', 'xxx.xx.xx.xx', 'xxx.xx.xx.xx', 'xxx.xx.xx.xx');

sub callBeforeRequest
{
  @LWP::Protocol::http::EXTRA_SOCK_OPTS = ( LocalAddr => @ips[$nextIpIndex] );
  if( (++$nextIpIndex) >= @ips ) { $nextIpIndex = 0; }
}

Last edited: 2009-08-01 15:27:32 +0200 (CEST)