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