Hi all,
I've tried the following script for reading a binary file, and just as a
test, I want to print it on another file and on the screen.
But nothing is printed, no errors. Do you have any idea why?
The script:
#!c:\perl\bin\perl.exe
print "Content-type: text/html\n\n";
print "Parse completed<br>";
$file = "C:\\My Documents\\test3.cgi";
open(NEW, ">c:\\Program Files\\Apache Group\\Apache\\images");
binmode NEW;
while (read($file, $buffer, 1024)) {
print $buffer;
print NEW $buffer;
}
close NEW;
Thank you for any help.
I am trying to learn this but I just can't.
Teddy,
My dear email address is [EMAIL PROTECTED]
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
