Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Thanks! Strundef $BytesRead; undef $Buffer; while ($Bytes = read($File_Handle,$Buffer,1024)) { $BytesRead += $Bytes; print OUTFILE $Buffer; } push(@Files_Written, "$SAVE_DIRECTORY\/$Filename"); $TOTAL_BYTES += $BytesRead; $Confirmation{$File_Handle} = $BytesRead; close($File_Handle); close(OUTFILE); chmod (0666, "$SAVE_DIRECTORY\/$Filename");
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Why doesn't file upload work under NT?
by guice (Scribe) on May 16, 2000 at 01:27 UTC | |
by Chris2323 (Initiate) on Apr 21, 2001 at 03:51 UTC | |
|
Re: Why doesn't file upload work under NT?
by btrott (Parson) on May 16, 2000 at 00:36 UTC |