Thread In einem Perl Script 2 IP-Adressen (10 answers)
Opened by NeWsOfTzzz at 2009-07-26 17:15

Gast wer
 2009-08-02 00:24
#123817 #123817
ich mache so was lieber so:
Code (perl): (dl )
1
2
3
4
5
6
7
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[0] );
  push(@ips,shift(@ips));
}

Das funktioniert auch weiter korrekt wenn du Einträge entfernst oder hinzufügst.

Nebenbei:
Mittels "@ips[$nextIpIndex]"verlangst du von perl eine Liste zurück zu liefern, die aber nur ein Element enthält ("warnings" meldet sich)
Beispiel:
Code (perl): (dl )
@list=@ips[0..3]

Willst du nur ein Element haben solltest du das so schreiben:
Code (perl): (dl )
$element=$ips[0]

View full thread In einem Perl Script 2 IP-Adressen