Daten zwischen verschiedenen IO::Socket::INET sockets senden? (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]17205[/thread]

Daten zwischen verschiedenen IO::Socket::INET sockets senden? [gelöst]

Tags: perl5 IO::Socket IO::Select Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+6 replies
monti

2012-02-29 18:57

User since
2011-08-05
57 Artikel
BenutzerIn

Hallo zusammen,

schon wieder quält mich eine Frage... Und zwar wie ich zwischen zwei verschiedenen Sockets Daten senden kann.
Kurz zur Lage:
Benutze das Testskript aus dem Beitrag
IO::Socket Frage, Timeout bei DSL Zwangstrennung?
Dort wird mir ja via print $client eine Ausgabe des verbundenen Sockets angezeigt in der Form

"Client IO::Socket::INET=GLOB(0xbf93e0) connected"

Meine Idee war nun, ich speicher mir das Socket zusammen mit einer Client ID in einem Array und lese dann später aus, welche Client ID welches Socket benutzt und schreibe dann direkt auf das Socket des Clients:
push (@connections,"$client;$clientID")

Lange Rede kurzer Sinn, funktioniert das so simpel wenn ich dann später mir aus zB $connections[0] das
"IO::Socket::INET=GLOB(0xbf93e0);client1"
hole, splitte und den socket teil recycle und mit

$recycelte_connection->send("IRGENDWAS");

sende?
Ich hoffe das war halbwegs verständlich :o)

Wie immer danke für jede Hilfe!

Grüße
- +5 replies
- jan
  
  2012-02-29 19:25
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  Nein, da würdest Du das Objekt verlieren, aber Du könntest
  
  Code: (dl )
  
  push (@connections,[$client, $clientID])
  
  schreiben und hast dann eine array-referenz, musst also nichts mehr splitten, sondern nur dereferenzieren:
  
  Code: (dl )
  
  1 2 3
  
  for my $connection (@connections) { my ($client, $clientID) = @$connection; }
  
  Je nachdem, was du vorhast, eignet sich ein Hash vielleicht besser zur Verwaltung? Irgendwas wie
  
  Code: (dl )
  
  $connections{ $clientID } = $client;
  - monti
    
    2012-02-29 19:32
    
    User since
    2011-08-05
    57 Artikel
    BenutzerIn
    
    danke für den tip, das hilft mir generell schon mal weiter!
    ich habs schon befürchtet, dass ein hash vorgeschlagen wird :)
    da muss ich mich erst einlesen, hab ich noch nie was mit gemacht...
  - +3 replies
  - monti
    
    2012-02-29 21:33
    User since
    2011-08-05
    57 Artikel
    BenutzerIn
    
    Denke ich habe nun genug gelesen um eine nicht zu dumme Frage zu stellen:
    
    Wenn ich eine Verbindung in den Hash schreibe mit
    
    $con_hash{$con_ID}=$client;
    
    und die betroffene verbindung wird beendet, dann muss ich das value/key paar aus dem hash löschen.
    in dem moment wo die verbindung beendet wird habe ich aber nur das socket $client.
    wie finde ich nun den hash key zu diesem socket?
    ich müsste doch anhand $client herausfinden wie die $con_id im hash ist....
    
    edit:
    könnte das so funktionieren
    
    Code: (dl )
    
    1 2 3 4 5
    
    while( my ($key, $value) = each %$con_hash ) { if ($value == $client) { delete $con_hash{$key}; } }
    
    Last edited: 2012-02-29 21:44:39 +0100 (CET)
    - +2 replies
    - monti
      
      2012-02-29 23:43
      
      User since
      2011-08-05
      57 Artikel
      BenutzerIn
      
      Ich antworte mir mal selbst, für die Akten:
      
      es funktioniert tadellos mit dem hash. ebenso das löschen des key/value paares über die while schleife.
      
      problem gelöst!
      thx!
      - murphy
        
        2012-03-01 00:18
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Es ist aber keine gute Idee, einen Hash strukturell zu verändern, während man mit each darüber iteriert. Damit handelt man sich lustige Bugs ein, deren Auftreten recht chaotisch sein kann.
        
        Korrektur: Auch wenn generelle strukturelle Modifikationen each durcheinanderbringen können, so ist doch laut Perldoc zumindest garantiert, dass man das letzte von each zurückgegebene Schlüssel-Wert-Paar aus einem Hash löschen darf, ohne dass das Probleme bereitet. Der Code ist also in Ordnung.
        Last edited: 2012-03-01 01:23:33 +0100 (CET)
        When C++ is your hammer, every problem looks like your thumb.

View all threads created 2012-02-29 18:57.