删除低版本号文件

Question 1

可以通过 GNU ls+ awkone-liner 来完成：

ls -vr *.depot | awk -F- '$1 == name{system ("rm \""$0"\"")}{name=$1}'

说明：文件名作为 awk 脚本的输入传递。这些选项-vr导致文件名按版本号以相反的顺序排序，因此 egfoo-1.9.depot位于foo-1.10.depot. awk 脚本将名称的第一部分（直到第一个-）存储在变量中name。当当前名称的第一部分与先前名称的第一部分相同时，调用脚本rm来删除当前文件（这是旧版本）。

Answer

可以通过 GNU ls+ awkone-liner 来完成：

ls -vr *.depot | awk -F- '$1 == name{system ("rm \""$0"\"")}{name=$1}'

说明：文件名作为 awk 脚本的输入传递。这些选项-vr导致文件名按版本号以相反的顺序排序，因此 egfoo-1.9.depot位于foo-1.10.depot. awk 脚本将名称的第一部分（直到第一个-）存储在变量中name。当当前名称的第一部分与先前名称的第一部分相同时，调用脚本rm来删除当前文件（这是旧版本）。

Question 2

$ 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

Answer

$ 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

删除低版本号文件

答案1

答案2

相关内容