Opened by Gast at 2006-11-27 21:25
Hallo,
ich möchte Dateien mit Perl senden und das möglichst kontrolliert! D.h. ich will die Downloadspeed der User damit regulieren.
Bisherige Code:
Doch dieser Code treibt den Load des Servers extrem in die Höhe! Gibts eine Möglichkeit ressourcenschonender Dateien zu senden? Bin für jede Hilfe dankbar!
Matthias
ich möchte Dateien mit Perl senden und das möglichst kontrolliert! D.h. ich will die Downloadspeed der User damit regulieren.
Bisherige Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
print "Content-Type: $type\n";
print "Content-Length: ",(-s $file),"\n";
print "Content-Transfer-Encoding: binary\n";
print "Content-Disposition:attachment;filename=$fname\n\n";
open(FILE,$file) || die"Error1($file) $!";
my ($buf,$rd);
while($rd=read(FILE,$buf,1024*$speed))
{
print $buf;
sleep 1;
}
Doch dieser Code treibt den Load des Servers extrem in die Höhe! Gibts eine Möglichkeit ressourcenschonender Dateien zu senden? Bin für jede Hilfe dankbar!
Matthias