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

[thread]13786[/thread]

In einem Perl Script 2 IP-Adressen

Leser: 26

Articles: hide open all | hide show old branches

+11 replies
Gast NeWsOfTzzz

2009-07-26 17:15

Hallo,

Ich würde gerne in einem Thread 2 IP-Adressen der selben Netzwerkkarte (symbolische Netzwerkkarten auf einem Dedicated Server) benutzen. Nur im alleräußersten Notfall würde ich das auf seperate Skripte auslagern, das würde die Arbeit verzehnfachen.

Weiß einer, wie ich quasi on-the-fly in Perl die passende Netzwerkkarte (und somit die richtige IP) auswähle? Gibt es dafür ein CPAN Modul?

mfg, René
- +10 replies
- MatthiasW
  
  2009-07-26 17:55
  
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  
  Was möchtest du denn eigentlich tun?
  Ich verstehe nicht was du mit "die passende Netzwerkkarte [...] auswähle[n]" meinst. Könntest du das bitte genauer erläutern?
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +9 replies
  - NeWsOfTzzz
    
    2009-07-26 17:57
    
    User since
    2009-07-26
    4 Artikel
    BenutzerIn
    
    Zum Beispiel würde ich gerne mit LWP::UserAgent Webseiten requesten, aber halt mit unterschiedlichen IPs.
    
    mfg, René
    - +8 replies
    - topeg
      
      2009-07-26 18:33
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Du meinst Ein Webservice mit einem HTTP-Server? Apache was anderes? Hast du Zugriff auf die Konfiguration, Logs, etc.? Welches System Win? Linux? Mac? BSD?
      
      Mal ein Schuss ins Blaue:
      Du könntest zwei virtuelle Hosts einrichten und das Script mittels Link (Hardlink) in beide Verzeichnisse packen.
      
      Du kannat die Teile, die in beiden Varianten gleich sind in Module auslagern und nur die Unterschiede in zwei Scripte packen.
      
      Aber ohne weiter Informationen kann man kaum mehr sagen.
      - +7 replies
      - sid burn
        
        2009-07-26 19:19
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Für mich schaut es eigentlich nur aus wenn er ein simples Skript hat sagen wir mal um die Seite "www.heise.de" herunterzuladen.
        
        Und nun möchte er das das Skript einmal so ausgeführt wird das bei heise.de ausschaut als wenn der Request von "1.1.1.1" kam, und beim anderen aushren soll es so aussehen als wenn der Request von der IP "1.1.1.2" kam.
        
        ---
        
        Zum einen muss der Webserver auch über beide IP-Adressen ansprechbar sein. Zum anderen ist es sache des Betriebssystems welches Netzwerk Interface es nimmt. Die entscheidung welches Interface es nimmt hängt letztendlich davon ab wie du die Routen konfigurierst.
        
        Zwar könnte es sein das du es irgendwie z.B. unter Linux hinbekommst. der "ip" Befehl ist da ziemlich mächtig und kann sein das man damit sogar einem Programm direkt einem Interface zuordnen kannst. Allerdiengs bezweifle ich das du aus Perl heraus das Interface direkt ansprechen kannst.
        
        Zum anderen ist das wohl eine Sache des Betriebssystems.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +6 replies
        
        NeWsOfTzzz
        
        2009-07-26 19:47
        
        User since
        2009-07-26
        4 Artikel
        BenutzerIn
        
        @sid burn, jo quasi. Die IPs kann man z.B. für Apache IP-based hosts benutzen, also der Inpust ist ja sowieso offen. Aber der Output muss ja auch zugänglich sein, denn immerhin kann man ja seine OpenVZ virtuellen PCs eine der IPs zuweisen. Und so ein virtueller PC ist ja im Grunde auch nix anderes als ein Programm. Aber wie ich schon sagte, im schlimmsten Fall muss ich das Skript in 2 Skripte aufteilen und auf 2 Vhosts laufen lassen. Aber ich bin mir sicher, dass es noch andere Möglichkeiten geben muss..
        
        @topeg: Das Betriebssystem ist Linux. Ja, ich bin Root. Was ich machen will, ist quasi das, was sid burn gesagt hat. Einfach irgendeine Webseite mit 2 IPs runterladen (die IPs besitze ich ja schon und sind ja auch schon als symbolische Netzwerkkarten angelegt).
        
        mfg, René
        
        +5 replies
        
        topeg
        
        2009-07-26 21:44
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das hat weniger mit perl denn mit Linux zu tun.
        
        Du könntest das Routing immerzu ändern:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        route add default dev eth0 ... route del default ... route add default dev eth0.1 ... route del default
        
        Dann geht das Paket/Anfrage einmal über eth0 und das andere mal über eth0.1
        Aber das betrifft alle ausgehenden Pakete, von allen Programmen.
        
        Ob man das Routing über eine Chroot-Umgebung unabhängig beeinflussen könnte weiß ich nicht, aber ich bezweifele es, da das ganze Routing im Kernel abläuft.
        
        Das einzige was mir noch einfiele währen virtuelle Systeme wie UML (user-mode-linux), XEN und co. aber das sind natürlich die großen Geschütze.
        
        +4 replies
        
        NeWsOfTzzz
        
        2009-07-26 22:10
        
        User since
        2009-07-26
        4 Artikel
        BenutzerIn
        
        Hmm, ich hab bisher nix unter Google gefunden aber habe gerade nochmal mit ein paar anderen Suchbegriffen gesucht und siehe da:
        
        binding LWP to a specific interface
        After search and googleing for an answer a nice fellow in #perl (undernet)
        came up with the following:
        @LWP::Protocol::http::EXTRA_SOCK_OPTS = ( LocalAddr => q(ip.addr) );
        Posted by sps at 10:54 AM
        
        Ich werd's bald mal ausprobieren :)
        
        +3 replies
        
        topeg
        
        2009-07-26 23:51
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Gerade ausprobiert. Es geht.
        Interessant das man dem Socket selber die zu IP zuweisen kann.
        Gut zu wissen. :-)
        
        +2 replies
        
        NeWsOfTzzz
        
        2009-08-01 15:24
        
        User since
        2009-07-26
        4 Artikel
        BenutzerIn
        
        Ich benutz es jetzt für 4 IPs (ist aber so programmiert, dass man das Array beliebig erweitern kann):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        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)
        
        Gast wer
        
        2009-08-02 00:24
        
        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 all threads created 2009-07-26 17:15.