压缩和清除perl脚本中的文件

Question

我刚刚制作了以下简单的脚本来删除＆amp;压缩旧文件，但它没有按预期执行，我没有收到任何错误。不确定会出现什么问题，请建议。

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

my $apath, $rmv, $com;

GetOptions ( "path=s" => \$apath );

$rmv = qq [ cd $apath && find . \\( -name '*.out*' -o -name '*.err*' -o -name '*.log*' \\) ! -path '*/.snapshot/*' -type f -mtime +30 -print0 2>/dev/null | xargs -0 rm -f ];
system("$rmv");
$com = qq [ cd $apath && find . \\( -name '*.out*' -o -name '*.err*' -o -name '*.log*' \\) ! -path '*/.snapshot/*' ! -name '*.gz' -type f -mtime +10 -print0 2>/dev/null | xargs -0 gzip -f ];
system("$rmv");