I tried using the File ::copy and then the move command it says permission
denied
Just a brief of what is hapening
i have a file with text like this
aaa.bbb e:\cme\abc.vws
i am splitting this data based on space and want to move the data in
e:\cme\abc.vws to e:\cme1\.
I am able to do this from the command line using move command but not from the
script
Please find below the cahnged script i am using now
please advise
use warnings;
use strict;
use File::copy;
open FILE, "remove_view_list.txt" or die $!;
while (<FILE>)
{
my @reg_exp=split(/ /,$_);
my $view_name=$reg_exp[0];
my $view_date-$reg_exp[1];
my $view_path=$reg_exp[2];
print "view name: $view_name\n";
print "view date: $view_date\n";
print "view path: $view_path\n"; // value of view_path is printed as
E:\cme\abc.vws
move ($view_path , "E:\\cme1"); // i have already tried using E:/cme1 also it
gives the same permission denied error //
}
Best Regards
Manoj
________________________________
From: Manoj Thakkar, Noida
Sent: Thu 12/1/2005 10:37 AM
To: beginners@perl.org
Subject: Moving Folder Access denied
Hi,
I am trying to move some file form one folder to other . I am able to move the
file if i do it from the dos prompt but it gives me access denied when i try it
using Perl.
It seem to me a problem in reading the variable value.
Her is my code
Please suggest ..
use Win32API::File qw ( :ALL );
use strict;
open file, "remove_view_list.txt" or die $!;
while (<file>)
{
# print $_;
my @reg_exp=split(/ /,$_);
#print @reg_exp;
my $view_name=$reg_exp[0];
my $view_date-$reg_exp[1];
my $view_path=$reg_exp[2];
print "view name: $view_name\n";
print "view date: $view_date\n";
print "view path: $view_path\n"; // value of view_path is printed as
E:\cme_views\view_name1\abc.vws
qx(move $view_path,E:\\cme_views.old);
}
Best Regards
Manoj
________________________________
From: Chris Devers [mailto:[EMAIL PROTECTED]
Sent: Thu 12/1/2005 9:57 AM
To: Pant, Hridyesh
Cc: beginners@perl.org
Subject: Re: Reading xls file
On Wed, 30 Nov 2005, Pant, Hridyesh wrote:
> I want to store column data of xls file in array.
> E.g. $array[0]=1st column of xls sheet.
> $array[1]=2st column of xls sheet.
> $array[2]=3st column of xls sheet.
> ...
> etc....
>
> Can anybody help me...
Probably, I'm sure someone could.
What did your search for Excel-related modules on CPAN turn up?
When you found Spreadsheet::WriteExcel, as I have no doubt that you did,
did you read the documentation for it, and the sample code provided?
When you tried using the module, what happened? Where is your code?
This STILL isn't the "please do my homework for me" list :-)
--
Chris Devers
eD¯!î×/.Z$
