Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: [EMAIL PROTECTED]
Precedence: bulk
Hallo Liste,
Ich habe auf einem (Apache-) Server einige sehr grosse Dateien zu
bewegen
(hab keinen Direkt (Terminal-) zugriff, nur FTP und CGI-BIN. Nun hab
ich mir ueberlegt, ein CGI-Script (in Perl) zu schreiben, um mir die
sehr hohen Telefonkosten (ISDN) zu sparen, denn es handelt sich um
mehrere hundert Megabyte, die ich von einem extrem langsamen Server
(ca. 0,1 kb/sec) herunterladen muss (Sources Datenbank). Kann ich das
ueber perl, oder ein anderes Skript verwirklichen ??
(ich hab's mal probiert):
mein Script:
"#!/usr/bin/perl
open(SOURCE, "<test.bin");
open(DESTINATION, "destination.bin");
while (<>) {
sysread SOURCE,$BINARYVAR,1;
print DESTINATION ($BINARYVAR);
if (eof()){
close(DESTINATION);
}
}
close(SOURCE);"
...funktioniert leider nicht so richtig ??
was hab' ich falsch gemacht, oder wie kann ich's besser
machen??
Vielen Dank fuer alle Antworten...;-)
Gruesse
Torsten Hoefler
--
Um aus der Liste ausgetragen zu werden, eine Mail an [EMAIL PROTECTED]
schicken, mit dem Text: unsubscribe suse-linux
--
Um aus der Liste ausgetragen zu werden, eine Mail an [EMAIL PROTECTED]
schicken, mit dem Text: unsubscribe suse-linux
