Thread Kontinuierlich Net-Stream anzeigen (29 answers)
Opened by kami at 2011-11-09 13:05

topeg
 2011-11-10 19:23
#154104 #154104
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
wenn das nicht funktioniert dann weiß ich auch nicht:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10

  my $finished = 0;
  my $time=time();
  my $buffer='';
  while(time() < $time+20 && $finished==0)
  {
    my $line='';
    $handle->read($line,4096);
    $finished=1 if(index($buffer,'L:')!=-1);
    $buffer.=$line if(length($line));
  }


getestet mit dem Server:
more (9.7kb):
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use URI;
$SIG{CHLD} = 'IGNORE' ;

my $server=IO::Socket::INET->new(
    LocalAddr => shift(@ARGV) || 'localhost',
    LocalPort => shift(@ARGV) || 2288,
    Listen => 5,
    Proto => 'tcp' );
die "ERROR Create Server Socket\n" unless($server);

my @data=<DATA>;
chomp(@data);

while (my $client = $server->accept())
{
  binmode($client);
  print "CONNECT!\n";
  unless(fork)
  {
    $server->close();
    print "SEND\n";
    print $client  join("\n",@data);
    $client->close();
    exit();
  }
}
########################################################################
__DATA__
H:IEQ0111347,00b5b6,0102,00000000,3ed09189,01,32
M:00,01,VgICAQpXb2huemltbWVyAQhjAgZLw7xjaGUAjwIFAQEIY0lFUTAxOTI4MDcKV29obnppbW1lcgEEAFv7SUVRMDE1Njg3NwtXb2huZmVuc3RlcgEFAEu4SUVRMDE0NTQ4OQxFQ08tU2NoYWx0ZXIAAQCPAklFUTAxOTU0NzUGS8O8Y2hlAgQAX9ZJRVEwMTU3Nzc2DUZlbnN0ZXJrw7xjaGUCAQ==
C:00b5b6,7QC1tgACAf9JRVEwMTExMzQ3AQsABEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAsABEAAAAAAAAAAQQAAAAAAAAAAAAAAAAAAAAAAAAAAAGh0A6Ly9zcGFycGFrZXQtaGVpenVuZy5ld2UuZGU6ODAvY3ViZQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAENFVAAACgADEA4AAENFU1QAAwAAIBwAAA==
C:005fd6,EQBf1gQAEw9JRVEwMTU3Nzc2
C:008f02,0gCPAgECFP9JRVEwMTk1NDc1Lh49CQcYA3AM/wA8dVycPNVc9j0gPSA9IEUgRSBFIEUgRSBFIDx1XJw8zFztPSA9ID0gRSBFIEUgRSBFIEUgPSA9ID0gPSA9ID0gPSBFIEUgRSBFIEUgRSA9ID0gPSA9ID0gPSA9IEUgRSBFIEUgRSBFID0gPSA9ID0gPSA9ID0gRSBFIEUgRSBFIEUgPSA9ID0gPSA9ID0gPSBFIEUgRSBFIEUgRSA9ID0gPSA9ID0gPSA9IEUgRSBFIEUgRSBFIA==
C:004bb8,EQBLuAUAEg9JRVEwMTQ1NDg5
C:005bfb,EQBb+wQAEw9JRVEwMTU2ODc3
C:010863,0gEIYwEBFP9JRVEwMTkyODA3Lh49CQcYA3AM/wA8dVycPNVc9j0gPSA9IEUgRSBFIEUgRSBFIDxyXQg9ID0gPSA9ID0gRSBFIEUgRSBFIEUgPNhdCD0gPSA9ID0gPSBFIEUgRSBFIEUgRSA82F0IPSA9ID0gPSA9IEUgRSBFIEUgRSBFIDzYXQg9ID0gPSA9ID0gRSBFIEUgRSBFIEUgPNhdCD0gPSA9ID0gPSBFIEUgRSBFIEUgRSA82F0IPSA9ID0gPSA9IEUgRSBFIEUgRSBFIA==
L:BgBf1gASEAsAjwIAEhkJHgCtAAYAS7gAEhAGAFv7ABIQCwEIYwASGRoeALAA

View full thread Kontinuierlich Net-Stream anzeigen