Linux - хотите проверить наличие возможных дубликатов каталогов (возможно, необходим RegEx)

Question

У меня есть каталог, который содержит несколько каталогов следующим образом:

/ Музыка /
/ Музыка / JoeBlogs-Back_In_Black-1980
/ Музыка / JoeBlogs-Back_In_Black- (Remastered) -2003
/ Музыка / JoeBlogs-Back_In_Black- (Переиздание) -1987
/ Музыка / JoeBlogs-Thunder_Man-1947

Я хочу, чтобы скрипт прошел и сообщил мне, когда есть «возможные» дубликаты, в приведенном выше примере он выберет следующие возможные дубликаты из списка каталогов:

/ Музыка / JoeBlogs-Back_In_Black-1980
/ Музыка / JoeBlogs-Back_In_Black- (Remastered) -2003
/ Музыка / JoeBlogs-Back_In_Black- (ReIssue) -1987

1) Возможно ли это?
2) Если да, пожалуйста, помогите!

Answer 1

Продолжение:

Я сделал то, что мне нужно, написав следующий скрипт на Perl. Это мой первый Perl-скрипт (и мне пришлось учить его написанию на Perl, так что не стесняйтесь :)

#!/usr/bin/perl

# README
# 
# Checks a folder for Albums that are similar 
# eg : 
# Arist-Back_In_Black-(Remastered)-2001-XXX
# Artist-Back_In_Black-(Reissue)-2000-YYY
#
# Script prompts you for which one to "zz" (putting zz in front of the file name you can delete it later)
#
# CONFIG
# 
# Put your mp3 directory path in the $mp3dirpath variable
#

$mp3dirpath = '/data/downloads/MP3';

# END CONFIG


@txt= qx{ls $mp3dirpath};


sort (@txt);

$re1='.*?'; 
$re2='(?:[a-z][a-z0-9_]*)';
$re3='.*?';
$re4='((?:[a-z][a-z0-9_]*))';

$re=$re1.$re2.$re3.$re4;

$foreach_count_before=0; #Setups up counter
$foreach_count_after=1; #Setups up counter


$number_in_arry = scalar (@txt);

while ($foreach_count_before < $number_in_arry) {
                                        if ($txt[$foreach_count_before] =~ m/$re/is)
                                            { 
                                             $var1=$1;
                                             }
                                         if ($txt[$foreach_count_after] =~ m/$re/is)
                                            { 
                                             $var2=$1;
                                             }
                                         if ($var1 eq $var2)
                                            {
                                             print "-------------------------------------\n";
                                             print "$txt[$foreach_count_before] \n";
                                             print "MATCHES \n";
                                             print "\n$txt[$foreach_count_after] \n";
                                             print "Which Should I Remove? \n";
                                             print "[1] $txt[$foreach_count_before]\n";
                                             print "[2] $txt[$foreach_count_after]\n";
                                             print "[Any Other Key] Take No Action\n\n";

                                             $answer = <>;        # Get user input, assign it to the variable 
                                                if    ( $answer == "1" ) { 
                                                      print "ZZing $txt[$foreach_count_before]";
                                                      $originalfilename = $mp3dirpath . '/' . $txt[$foreach_count_before];
                                                      $newfilename = $mp3dirpath . '/' . 'zz' . $txt[$foreach_count_before];
                                                      $originalfilename = trim($originalfilename);
                                                      $newfilename = trim($newfilename);
                                                      qx(mv $originalfilename $newfilename);
                                                } 
                                                elsif ( $answer == "2" ) { 
                                                      print "ZZing $txt[$foreach_count_after]";
                                                      $originalfilename = $mp3dirpath . '/' . $txt[$foreach_count_after];
                                                      $newfilename = $mp3dirpath . '/' . 'zz' . $txt[$foreach_count_after];
                                                      $originalfilename = trim($originalfilename);
                                                      $newfilename = trim($newfilename);
                                                      print "mv $originalfilename $newfilename";
                                                      qx(mv $originalfilename $newfilename);
                                                } 
                                                else { 
                                                      print "Taking No Action"; 
                                                }

                                            }

                                           $foreach_count_before++;
                                           $foreach_count_after++;

                                        }

# SubRoutine For Trimming White Space from variables
sub trim($)
{
 my $string = shift;
 $string =~ s/^\s+//;
 $string =~ s/\s+$//;
 return $string;
}

Answer 2

Если имена ваших каталогов следуют обычной структуре, такой как:

foo-Name_of_Interest-bar

тогда вы можете сделать простое регулярное выражение, чтобы убрать "foo-" и "-bar" и сделать прямое сравнение.

Если это невозможно, вам придется использовать гораздо более дорогой алгоритм сопоставления с образцом. Возможно, что-то вроде самая длинная общая последовательность или расстояние Левенштейна . Там могут быть другие методы, которые являются более подходящими.

Простое сопоставление в Bash (версия 3.2 или выше) может выглядеть следующим образом:

dir='/Music/JoeBlogs-Back_In_Black-(Remastered)-2003'
regex='^([^-]*)-([^-]*)-(.*)$'
if [[ ${BASH_REMATCH[1]} == ${prev_dir[1]} &&    #  "/Music/JoeBlogs"
      ${BASH_REMATCH[2]} == ${prev_dir[2]} ]]    #  "Back_In_Black"
then
    echo "we have a match"
fi

Этот фрагмент не показывает цикл find ... | while read ... или способы обработки предыдущих записей и списков совпадений.