Kontinuierlich Net-Stream anzeigen - #154085 (Allgemeines zu Perl)

rosti

2011-11-09 21:16

User since
2011-03-19
3470 Artikel
BenutzerIn

Was sagt denn das Protokoll, muss da erst ein Request gesendet werden und kommt dann die Antwort als Endlos-Stream oder kommt da was Endliches? Oder gehst Du auf das Socket und liest nur den Stream aus (like NTP)?

Port 80 sieht jedenfalls für mich aus wie http oder rtsp. Ein Ripper sähe in etwa so aus (mp3-Stream mitschneiden):

Code (perl): (dl )

# socket handle erstellen
my $socket = new IO::Socket::INET (
        PeerAddr => $host,
        PeerPort => $port,
        Proto    => 'tcp'
);

# Request Header senden
print $socket "GET / HTTP/1.0\n\n";

# Speicherort des Streams öffnen
open(OUT, ">cut.mp3");
binmode OUT;
while(my $s = read($socket, my $buffer, 1024)){
        print OUT $buffer;
}

Edit:

Code (perl): (dl )

my $socket = new IO::Socket::INET("$host:$port"); # kurzform

Last edited: 2011-11-09 21:27:08 +0100 (CET)