- or download this
my @rrds = grep { /.*rrd$/ && -f "$logsdir/$_" } readdir DIR;
- or download this
$cmd = qq|$mv resize.rrd $logsdir/$rrd|;
print "\tRenaming resized file, executing $cmd\n";
system($cmd) == 0 or die "Could not execute $cmd:$!\n";
- or download this
print "\tRenaming resized file, executing $cmd\n";
rename 'resize.rrd', "$logsdir/$rrd" or die "Could not rename
+resize.rrd:$!\n";