$ cat remover
#!/usr/bin/perl
for(<*depot>){
if(/(\w.*?)-(\d+)(?:\.(\d+))?\.(\d+)-/){
$norm=sprintf("%04d%04d%04d",$2,$3,$4);
if($v{$1} and $v{$1} > $norm){ unlink($_) ; next }
if($v{$1} ){ unlink($name{$1}) }
$v{$1}=$norm;
$name{$1}=$_;
}
}
попробуйте perl remover
и замените print
на system
, если вам нравится вывод
Через долгое время я могу найти ответ.
Проблема: ==> HRSUPPORT, не в состоянии CD к дому / кому-то / public_html, который не имеет никого в группе
решение: ==> Я добавил пользователя HRSupport к группе никто
проблема решена Отказ