Strona 2 z 2 PierwszyPierwszy 12
Pokaż wyniki 11 do 12 z 12

Temat: Problem z nasluchiwaniem

  1. #11
    Zarejestrowany
    Jul 2008
    Postów
    18

    Domyślnie

    Cytat Napisał TQM Zobacz post
    Zastanawia mnie tylko jedno... dlaczego to wyglada dokladnie tak samo jak program talk z unixow
    Nie wzorowalem sie na nim Postanowilem napisac prosty serwer i klienta do rozmow ale hm... cos mi sie ten serwer ... poniewaz nie dostaje pakietow ktore maja do mnie leciec Oto kod(moze mi powiecie czemu?):
    Kod:
    #!/usr/bin/perl
    use IO::Socket::INET; 
    #use strict;
    $l = IO::Socket::INET->new(LocalPort=>2345, Listen=>1, ReuseAddr=>1);
    while(1)
    {
    $p = $l->accept();
    $packet = <$p>;
    print "packet: $packet\n";
    if($packet)
    {
    $from = $p->peerhost;
    $packet =~ m/<to>(.*?)<\/to>/g;
    $to = $1;
    $packet =~ m/<text>(.*?)<\/text>/g;
    $text = $1;
    print "from: $from\nto: $to\ntext: $text\n";
    $s = IO::Socket::INET->new(PeerPort=>2345,PeerAddr=>"$to");
    print $s "<from>".$from."</from><text>".$text."</text>";
    }
    }

  2. #12
    spider jest offline scripts-zone.info
    Zarejestrowany
    Aug 2008
    Skąd
    scripts-zone.info
    Postów
    1

    Domyślnie

    hmm... na moje oko tutaj jest wszystko ok

Strona 2 z 2 PierwszyPierwszy 12

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52