Adedayo Adeyeye <mailto:[EMAIL PROTECTED]> wrote:
: Thanks.
:
: To get the statistics of a file on my windows box, I ran the
: following script:
:
:
: open FILE1, "Perfect.xls" or die "Cannot open file: $!";
:
: my @stuff = stat "FILE1";
:
: print "@stuff";
:
: Unfortunately, I don't know why this never returned any values into
: my @stuff variable.
Because stat() works on filenames, not file handles.
my @stuff = stat 'Perfect.xls';
: Next I tried this:
:
: open FILE1, "Perfect.xls" or die "Cannot open file: $!";
:
: open FILE2, ">folder\Perfect.xls" or die "Cannot write to destination
: directory: $!";
In perl, directories are separated by "/" not "\". "\P" is an
escaped "P".
: system ("copy FILE1 FILE2");
:
: close FILE1;
: close FILE2;
use File::Copy 'copy';
copy( 'Perfect.xls', 'folder/Perfect.xls') or die "Copy failed: $!";
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
