Hello Monks,
I think I'm missing something simple. I'm trying to move a file before I delete it. And the way I'm trying it gives me a blank word doc in the deleted folder.
#! C:\perl\bin\perl.exe
use strict;
use CGI qw(fatalsToBrowser);
my $file = "C:\\web\\policies\\folder\\file.doc";
my ($bytesread, $buffer);
print "Content-type: text/html\n\n";
open (DOC, $file) or die "cannot open: $!";
my @doc = <DOC>;
close DOC;
open (NEWDOC, ">C:\\web\\policies\\folder\\deleted\\file.doc") or die
+"Cannot open new: $!";
binmode (NEWDOC);
while ($bytesread=read(@doc,$buffer,1024)) {
print OUTFILE $buffer;
}
close NEWDOC;
print "completed!";
foreach (@doc) {print}
Any help is very appreciated.