perl crap person requires shove in the right direction..

[Slidey]

whats wrong with this:

my $logDir = "/var/log/httpd";
my $bkupDir = "$logDir/bak";

@mvargs = ("/bin/mv", '$logDir/*_log', "$bkupDir");

system(@mvargs) == 0 or die "Couldnt exec $!";

im getting the followign error:

/bin/mv: cannot stat `$logDir/*_log': No such file or directory
Couldnt exec  at axsl.pl line 24.

ive tried putting " around the argument too, but same thing happened... what do i have to do to expand the args ?

Slidey

[queball]

Check the perldoc for system. It only uses sh, and thus globbing, when given a string rather than a list. So either concatenate to a string, or use something like @mvargs = ("/bin/mv", glob '$logDir/*_log', "$bkupDir");

[zenopus]

alternatively

my @mvargs = ('/bin/mv', "$logDir/*_log", "$bkupDir" );
my $mvcmd = join ' ',@mvargs;

system($mvcmd) == 0 or die "Couldnt exec $!";

[Atamur]

Originally posted by Slidey
whats wrong with this:

......
@mvargs = ("/bin/mv", '$logDir/*_log', "$bkupDir");
.........

variable is not interpolated inside single quotes around $logDir/*_log. replace with double quotes.