我希望 perl 从我指定的文件夹中解压缩文件,然后删除稀有文件,这样它们就不会使用 HDD 空间。文件可以采用以下格式: (r(ar|[0-9][0-9])|sfv)
我已经安装了 unrar,而且我是 PERL 的新手,所以如果我需要在某处添加一些东西,请具体说明。就像在文件顶部添加这个和这个一样。
我的脚本现在是这样的:
while (1)
{
foreach (`find ${upload_folder}`)
{
chomp;
if ($_ =~ /\.rar$/i)
{
$_=~/^([\W\w]+?)\/([^\/]+)$/;
`rar x "$_" "$1"`;
unlink($_);
}
#...
}
#...
}
谢谢
//哦,是的,有时可能会有一个包含多个部分的 rar 文件的文件夹,称为 .r01、.r02 .. .r50,所有这些部分实际上是 1 个大 rar 文件分成许多部分