Как сравнить (в сценарии оболочки) два файла по базовому имени, а затем отбросить один?

Question

Я использую оболочку bash на OS X (10.7). У меня есть довольно много каталогов аудио файлов, как так:

dir/audio.mp3 
dir/audio.m4a 

Я хотел бы программно отбросить один из файлов, но как? Я знаю, как получить базовые имена:

find . -type f -exec basename -a {} + | sort | awk -F"." '{print $1}' | uniq -d 

Но я в тупике, как «метка» в mp3s, скажем, так, что rm может делать свое дело. В идеале я бы сохранил файлы с наивысшим битрейтом, но на данный момент сокращается расширение файлов.

Возможно, Perl - лучший инструмент, но я недостаточно разбираюсь в Perl, чтобы начать заниматься этим.

Answer 1

В Perl то, что вам хотелось бы, это модуль File::Find.

#!/usr/bin/perl 

use strict; 
use warnings; 

use File::Find; 

my $search_path = "dir/"; 

my %exists; 

sub find_dupes { 
    my $filename = $_; 
    $filename =~ s/\.\w+$//; #remove extension) 
    if ($exists{$filename}) { 
     print $File::Find::name, " may be a duplicate of ", 
      $exists{$filename}, "($filename)\n"; 

     ##maybe delete the duplicate via unlink(); 
    } 
    else { 
     $exists{$filename} = $File::Find::name; 
    } 
} 

find(\&find_dupes, $search_path); 

NB: На самом деле не делается удаление. Это осталось для вас. Вы можете использовать File::Find, чтобы делать более умные сравнения, такие как время модификации, размер файла. Вы даже можете найти, что вы можете автоматически извлекать метаданные MP3 с помощью модуля, такого как MP3::Info. Я не использовал этот, поэтому YMMV.

Answer 2

Вы можете получить базовое имя файла с помощью команды basename (выглядит как вы делаете этот шаг от find в любом случае ...):

$ file="/foo/bar/baz.ext" 
$ echo $file 
/foo/bar/baz.ext 

$ name="$(basename "$file")" 
$ echo $name 
baz.ext 

Затем, чтобы удалить расширение, используйте %.*Параметр расширение раздеть последнюю точку, и все, что следует:

$ base="${name%.*}" 
$ echo $base 
baz 

man bash, поиск «Параметры расширения» для получения дополнительной информации. Это работает и в ksh/zsh.