Forum Debian Users Gang

Czołgiem gangsterka mam zagwozdkę i nie mogę jej ogarnąć.  Mam skrypta w perlu który m.in buduje sobie tablicę z listą katalogów na koncie usera. Przy czym
- nazwa katalogu nie może zaczynać się od kropki (katalogi ukryte są ble i ich nie chcemy na liście)
- katalogi *stats i logs są dyskwalifikowane
- katalog może zawierać tylko litery, cyfry oraz znaki - i _
- nie może być symlinkiem.


Z połową  założeń sobie poradziłem bez większego problemu:

## lista wszystkich katalogów z podanej ścieżki nie będących katalogami ukrytymi, 
## nie zawierające spacji i nie nazywających się *stats czy też logs
my @dirs = File::Find::Rule->new
                      ->directory
                      ->not_name (qr/^\.|(aw)?stats|logs|\s/ )
                      ->in ( $sciezka );

## usuwanie symlinków zrobiłem sobie w następnej pętli:
foreach my $dir (@subdirs) {
  if (not -l $dir){
    ### rób coś tam coś tam.
  }
}

Jest tylko jeden problem na liście nadal znajdują się katalogi o nazwać np: "dup@" czy też "cos+cos"...

Próbowałem do File::Find::Rule dodać coś takiego:

my @dirs = File::Find::Rule->new
                      ->any ( File::Find::Rule->new->not_name (qr/^\.|(aw)?stats|logs|\s/ ) , 
                                   File::Find::Rule->new->name( qr/[a-zA-Z0-9\_\-\\]+/) )
                      ->in ( $sciezka);

Ale to też nie bangla. Obstawiam że da się tego regexpa z not_name jakoś ogarnąć żeby spełniał wszystkie założenia ale kończą mi się pomysły.

Tak samo podobno da się od razu wkliczyć symlinki (wg dokumentacji jest opcja -X test ale nie umiem jej użyć ^^)


Spece od perla/regexpów proszeni o pomoc ;)