I can see one problem off the top of my head. You aren't using chomp() on the line, so $view_path probably has something like "e:\\cme\\abc.vws\n" in it.
-----Original Message----- From: Manoj Thakkar, Noida [mailto:[EMAIL PROTECTED] Sent: Thursday, December 01, 2005 10:17 PM To: beginners@perl.org Subject: RE: Moving Folder Access denied 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$ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
