(Multimedia) Stream Ripper (mal zum Testen)

[hotti]

hi,

eine kleine Bitte hab ich, untenstehendes Script schneidet einen Stream mit, mein Player spielt die Datei einwandfrei ab, kann das mal jemand mit einem beliebigen Player testen?

  
#!/usr/bin/perl  
  
###########################################################################  
# VARs  
my $host = '88.191.90.189';  
my $port = 8083;  
###########################################################################  
use strict;  
use IO::Socket;  
  
$| = 1;  
  
# socket handle erstellen  
my $socket = new IO::Socket::INET (  
	PeerAddr => $host,  
	PeerPort => $port,  
	Proto    => 'tcp'  
);  
  
print $socket "GET / HTTP/1.0\n\n";  
  
open(OUT, ">test.mpeg");  
binmode OUT;  
while(my $s = read($socket, my $buffer, 1024)){  
	print OUT $buffer;  
}  
  
close OUT;  

Evntl. muss die Dateierweiterung angepasst werden.

Danke und viele Grüße,
Hotti ;-)