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$
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
