RegEx für Dateinamen - ich krieg's einfach nicht hin ...

[Tschakka]

Hallo allerseits,

ich brauche Hilfe beim erstellen von RegEx-Ausdrücken, mit denen ich Dateinamen filtern kann. Folgende Bedingungen:

Fall 1:
Dateiname (beliebige Länge, bestehend aus Buchstaben und Ziffern, auch Umlaute) soll genau 2 Punkte enthalten und der Teil nach dem zweiten Punkt soll "def" lauten.
Beispiele:
dateiname_wurbel_mit_schlonz_345.abc.def soll gefunden werden
dateiname_wurbel_mit_schlonz_345.abc.DEF soll gefunden werden
dateiname_wurbel_mit_schlonz_345.abc.dex soll ignoriert werden.

Fall 2:
Dateiname (beliebige Länge, bestehend aus Buchstaben und Ziffern, auch Umlaute) soll genau 2 Punkte enthalten, zwischen den Punkten soll eine bestimmte Anzahl Zeichen sein (alles mögliche), der Teil nach dem zweiten Punkt soll "xyz" lauten.
Beispiele mit 5 Zeichen zwischen den Punkten:
dateiname.abcde.xyz soll gefunden werden
dateiname.Ü_Ö_Ä.XYZ soll gefunden werden
dateiname.a_b_c.qqq soll ignoriert werden
dateiname.abc.xyz soll ignoriert werden

Ich bitte um Eure Hilfe!

 

[Geier0815]

Blöde Frage: Brauchst Du wirklich RegEx oder eher globbing? Auch wenn es ähnlich aussehen mag, gibt es da Unterschiede

 

[Tschakka]

erstmal globbing gegoogelt, ..., nee, brauche tatsächlich RegEx

 

[abgdf]

Bei RegEx bin ich mir nie sicher, ob das auch wirklich das findet, was ich da eingebe. Oft gibt es ein Problem mit "Gier".
Ich würde nicht versuchen, alles in eine RegEx zu packen, und also das ganze Problem in der RegEx-Sprache zu lösen. Ich würde die Strings zerteilen, z.B. bei ".", und dann z.B. in "Fall 2" den Teilstring auf die richtige Anzahl von Zeichen untersuchen. Es würde bei mir also ein Programm, das aus mehr als nur einer (unlesbaren) RegEx-Zeile bestehen würde.
Natürlich würde ich das nicht mit sed oder sowas in bash machen, sondern z.B. in Perl. Mit einem etwas längeren Perl-Skript also. Da hätte ich die erforderliche Kontrolle.
Leider sagen Threadersteller hier seit vielen Jahren dann aber meistens "Ich kann aber kein Perl, und will das auch nicht lernen". Ja, schade.

 

[abgdf]

Proof of concept, Fall 2:

#!/usr/bin/perl

use warnings;
use strict;

sub removeVowels {
    my $a = shift;
    my @b = qw/ä ö ü Ä Ö Ü ß/;
    my $i;
    for $i (@b) {
        $a =~ s/\Q$i\E/0/g;
    }
    return $a;
}

sub checkString {
    my $a = shift;
    my $numchars = shift;
    my $suf = shift;
    my @b = split(/\./, $a);
    if ($#b != 2) {
        print "Reason: Not exactly two points in string.\n";
        return 0;
    }
    my $c = removeVowels($b[1]);
    if (length($c) != $numchars) {
        print "Reason: Incorrect number of characters in '$b[1]'.\n";
        return 0;
    }
    if ($b[2] ne $suf && $b[2] ne uc($suf)) {
        print "Reason: Wrong suffix: '$b[2]'.\n";
        return 0;
    }
    return 1;
}

my @a = ("dateiname.abcde.xyz",
         "dateiname.Ü_Ö_Ä.XYZ",
         "dateiname.a_b_c.qqq",
         "dateiname.abc.xyz");

my $i;
for $i (@a) {
    print "$i\n";
    if (checkString($i, 5, "xyz")) {
        print "Result: Found.\n";
    } else {
        print "Result: Nope.\n";
    }
    print "\n";
}