IO::Socket::UNIX - Prüfen ob Client mit Socket verbinden (Fragen zu Perl-Modulen)

[thread]17313[/thread]

IO::Socket::UNIX - Prüfen ob Client mit Socket verbinden

Tags: perl5 Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+16 replies
mark05

2012-04-12 16:27
User since
2010-01-05
135 articles
BenutzerIn
hi

gibt es eine moeglichkeit fest zustellen ob ein client
sich mit der erstellen server socket verbunden hat .

im prinzip habe ich folgendes gebaut.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

my $ioserver = IO::Socket::UNIX->new(Local => $sock, Type => SOCK_DGRAM, Listen => 15 ) or croak $EVAL_ERROR; sub read_sock { my $sockinput; $ioserver->recv($sockinput,2048); return ($sockinput); } while (1) { my $test = \read_sock ; if ( $test ) { print "$test\n"; }; print "rest der welt\n"; sleep 5; }
leider kommt die "rest der welt" ausgaber erst wenn ich
an denn socket was geschickt habe.

von daher wuerde ich gerne abfragen ob
a: daten am socket anliegen
oder
b: ein client verbunden ist.

ich moechte gerne ueber den weg eine art schnittstelle bauen
ueber die externe programme werte vom daemon abfragen koennen.

holger

modedit Editiert von GwenDragon: Titel geändert
Last edited: 2012-04-12 16:30:13 +0200 (CEST)
- GwenDragon
  
  2012-04-12 16:28
  
  User since
  2005-01-17
  14924 articles
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Fragen zu Perl-Modulen
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- Linuxer
  
  2012-04-12 16:30
  
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  
  Welche Magie soll mit Zeile 14 my $test = \read_sock ; bewirkt werden?
  Was willst Du mit "Backslash" "Funktionsname" bewirken?
  Diese Syntax ist mir nicht geläufig.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - mark05
    
    2012-04-12 16:43
    
    User since
    2010-01-05
    135 articles
    BenutzerIn
    
    2012-04-12T14:30:33 Linuxer
    Welche Magie soll mit Zeile 14 my $test = \read_sock ; bewirkt werden?
    Was willst Du mit "Backslash" "Funktionsname" bewirken?
    Diese Syntax ist mir nicht geläufig.
    
    der ergebnis ist dann eine referenz , sprich das was als return kommt.
    
    muss man nicht so machen ist eher eine angewohnheit.
    
    holger
    - Linuxer
      
      2012-04-12 17:40
      
      User since
      2006-01-27
      3891 articles
      HausmeisterIn
      
      OK, Danke. Wie geschrieben, ist mir das so nicht geläufig.
      In der Regel erstelle ich die Referenz in der Subroutine und nicht erst danach.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- GwenDragon
  
  2012-04-12 16:36
  User since
  2005-01-17
  14924 articles
  Admin1
  Ein
  
  Code: (dl )
  
  $ioserver->autoflush(1);
  
  zu Anfang wäre auch sehr empfehlenswert, um Verzögerungen druch Puffern abzustellen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - mark05
    
    2012-04-12 16:42
    User since
    2010-01-05
    135 articles
    BenutzerIn
    
    2012-04-12T14:36:39 GwenDragon
    Ein
    
    Code: (dl )
    
    $ioserver->autoflush(1);
    
    zu Anfang wäre auch sehr empfehlenswert, um Verzögerungen druch Puffern abzustellen.
    
    laut perldoc http://perldoc.perl.org/IO/Socket/UNIX.html
    
    ist autoflush ab 1.18 automatisch aktiv.
    
    Quote
    As of VERSION 1.18 all IO::Socket objects have autoflush turned on by default. This was not the case with earlier releases.
    
    wer lesen kann ist kalr im vorteil @gwen_dragon
    du sprachst von abschalten nicht von anschalten .......;)
    
    ich schalt dann mal ab.
    
    holger
    Last edited: 2012-04-12 16:49:30 +0200 (CEST)
- +6 replies
- murphy
  
  2012-04-12 17:16
  User since
  2004-07-19
  1776 articles
  HausmeisterIn
  2012-04-12T14:27:12 mark05
  [...]
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my $ioserver = IO::Socket::UNIX->new(Local => $sock, Type => SOCK_DGRAM, Listen => 15 ) or croak $EVAL_ERROR;
  
  [...]
  von daher wuerde ich gerne abfragen ob
  a: daten am socket anliegen
  oder
  b: ein client verbunden ist.
  [...]
  
  (a) macht man mittels select, (b) ist unmöglich, da es sich um einen Datagramsocket handelt, der das Konzept einer Verbindung gar nicht kennt.
  When C++ is your hammer, every problem looks like your thumb.
  - +5 replies
  - GwenDragon
    
    2012-04-12 17:34
    
    User since
    2005-01-17
    14924 articles
    Admin1
    
    2012-04-12T15:16:04 murphy
    (b) ist unmöglich, da es sich um einen Datagramsocket handelt, der das Konzept einer Verbindung gar nicht kennt.
    Das weiß er doch schon längst, was UDP bedeutet.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - Linuxer
      
      2012-04-12 17:39
      
      User since
      2006-01-27
      3891 articles
      HausmeisterIn
      
      Wenn er es schon weiß, warum fragt er dann, wie festzustellen ist, ob ein Client verbunden ist? ;-)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +2 replies
      - mark05
        
        2012-04-12 21:51
        
        User since
        2010-01-05
        135 articles
        BenutzerIn
        
        Hi
        
        Bedenke ich will und mache keine netzwerk connect.
        Wenn ich es machen wuerde ist mir klar das ich bei udp keinen client
        Connect status abfragen kann.
        
        Wie soll das mit select gehen bei einem domain socket via
        IO::Socket::UNIX ?
        
        Holger
        Last edited: 2012-04-12 21:54:01 +0200 (CEST)
        
        murphy
        
        2012-04-12 23:50
        
        User since
        2004-07-19
        1776 articles
        HausmeisterIn
        
        Das geht mit select genauso wie bei jedem anderen Socket- oder Dateihandle auch. Kleines gekürztes Beispiel:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
        
        # Create Socket my $socket = IO::Socket:UNIX->new([...]); [...] # Prepare bitvector of filedescriptors to poll my $readable = ''; vec($readable, $socket->fileno, 1) = 1; # Wait up to one second for incoming data given (select($readable, undef, undef, 1.0)) { when (1) { # There is incoming data, so read it $socket->recv([...]); } when (0) { # The call timed out [...] } when (-1) { # There was an error warn "Error waiting for incoming packets: $!"; } }
        
        When C++ is your hammer, every problem looks like your thumb.
    - murphy
      
      2012-04-12 23:41
      
      User since
      2004-07-19
      1776 articles
      HausmeisterIn
      
      2012-04-12T15:34:51 GwenDragon
      2012-04-12T15:16:04 murphy
      (b) ist unmöglich, da es sich um einen Datagramsocket handelt, der das Konzept einer Verbindung gar nicht kennt.
      Das weiß er doch schon längst, was UDP bedeutet.
      
      Hier geht es aber gar nicht um Sockets der Adressfamilie INET sondern um solche der Adressfamilie LOCAL. Da gibt es kein UDP, sondern andere Datagramsockets, die im Gegensatz zu UDP-Sockets zum Beispiel Pakete zuverlässig ohne Verluste zustellen.
      When C++ is your hammer, every problem looks like your thumb.
- +3 replies
- GwenDragon
  
  2012-04-12 22:06
  
  User since
  2005-01-17
  14924 articles
  Admin1
  
  ich rätsele gerade ob es hilft ein leeres Datagram an den Socket zu senden, wenn keine Verbindung da ist sollte doch ein 'ICMP port unreachable' kommen. Oder nicht?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - mark05
    
    2012-04-13 08:43
    
    User since
    2010-01-05
    135 articles
    BenutzerIn
    
    moin
    @gwen dem waehre so wenn man eine netzwerk verbindung macht.
    
    -> IO::Socket::INET .
    
    mache ich ja nicht .
    
    @murphy
    hast du ggf noch weitere documentation zu hand wo ich noch etwas stoebern kann .
    
    wenn ich mir die perldoc angeschaue gibt es z.b. fileno als
    methode nicht bei IO::Socket geschweige den ::INET oder UNIX.
    
    holger
    - murphy
      
      2012-04-13 12:37
      
      User since
      2004-07-19
      1776 articles
      HausmeisterIn
      
      IO::Socket::UNIX ist eine abgeleitete Klasse von IO::Socket was wiederum von IO::Handle erbt. Folglich kann man auf jeder Instanz von IO::Socket::UNIX auch alle Methoden der Klasse IO::Handle aufrufen und dazu gehört unter anderem auch die Methode fileno.
      
      Die Funktionsweise der Methode fileno ist identisch mit der der eingebauten Perlfunktion gleichen Namens, außer dass man natürlich das Argument weglässt, weil es durch den Methodenempfänger bereits gegeben ist. Weitere Dokumentation zu der Funktion findet man dementsprechend, wenn man perldoc -f fileno nachschlägt.
      
      Die Funktion select ist ebenfalls eine Kernfunktion von Perl und unter perldoc -f select dokumentiert. Etwas verwirrend ist, dass select zwei gänzlich unterschiedliche Aufgaben erfüllt, je nachdem ob man es mit einem oder mit vier Argumenten aufruft — wir brauchen hier die Variante mit vier Argumenten.
      
      Die zugrundeliegende Systemfunktionalität ist auch in den Manualpages jedes *NIX-Systemes unter select(2) dokumentiert, falls Du mehr Hintergrundinformation zum I/O-Multiplexing suchst.
      When C++ is your hammer, every problem looks like your thumb.

View all threads created 2012-04-12 16:27.