버전 번호가 낮은 파일 삭제

Question 1

이는 GNU ls+ awk원라이너를 통해 수행할 수 있습니다.

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

설명: 파일 이름이 awk 스크립트에 입력으로 전달됩니다. 이러한 옵션을 -vr사용하면 파일 이름이 버전 번호별로 역순으로 정렬됩니다. 즉, foo-1.9.depotawk foo-1.10.depot스크립트는 이름의 첫 번째 부분(첫 번째 부분까지 -)을 변수에 저장합니다 name. 현재 이름의 첫 부분이 이전 이름 rm(이전 버전)의 첫 부분과 동일하면 현재 파일을 삭제하기 위해 스크립트가 호출됩니다.

Answer

이는 GNU ls+ awk원라이너를 통해 수행할 수 있습니다.

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

설명: 파일 이름이 awk 스크립트에 입력으로 전달됩니다. 이러한 옵션을 -vr사용하면 파일 이름이 버전 번호별로 역순으로 정렬됩니다. 즉, foo-1.9.depotawk foo-1.10.depot스크립트는 이름의 첫 번째 부분(첫 번째 부분까지 -)을 변수에 저장합니다 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

관련 정보