Logik?

[Hussl]

Folgende Problemstellung:

Ein Skript - geschrieben in Perl - das mir gleiche Dateinamen findet. So hab ich das gelöst:

Dateiname1 = "Gigi d'Agostino - Irgendwas (Irgendein Remix).mp3"
Dateiname2 = "Gigi d'Agostino - Irgendwas.mp3"

Schritt 1
Alle Sonderzeichen aus den Dateinamen löschen (auch .mp3 weg)

Schritt 2
Mehrere Blanks auf je ein blank trimmmen

Schritt 3
Nach den einzelnen Wörtern splitten. Ich hab jetzt zwei Arrays mit 6 (Dateiname1) und einen Array mit 4 (Dateiname2) Elementen.

Schritt 4
Nun vergleich ich jedes Element des 1.Arrays mit den Elementen des 2.Arrays und speichere mir die Anzahl der gefundenen Elemente. Nun will ich die Übereinstimmung in Prozenten ausdrücken:

Anzahl Treffer / Anzahl Elemente im 2.Array * 100 = n %

In meinem Fall wäre das 4 / 4 * 100 = 100%

Das ist ja ganz gut, aber wenn ich so einen Fall habe:

Dateiname1 = "1_Stascheißer_Koarl.mp3"
Dateiname2 = "1.mp3"

ist auch hier 100% Übereinstimmung, was ja offensichtlich nicht sein kann...

Meint ihr, gibt es eine Möglichkeit, dass ich die Anzahl der Elemente des 1. Arrays auch irgendwie in die Berechnung mit einbringe, um damit die Prozentanzahl zuverlässiger zu machen??

Hab ich mich überhaupt verständlich ausgedrückt?

Grüße,
Hussl