[Perl] grep

[Damian1984]

Hallo.

ich habe ein kleines Problem mit einem Grep.
Folgender Zustand ist zur Zeit in einem perl-Script:

my @dirEntries = grep {/^[^\.\_]/} readdir CURDIR;

Dies Speichert mir alle Oder und Dateien in @dirEntries, die nicht mit . oder _ anfangen.
Jetzt möchte ich das so ändern, dass nur . .. und alle Dateien und Ordner mit _ am Anfang ausgeschloßen werden.

Ich sehe wohl den Baum vor lauter Bäume nicht.
Versucht habe ich:

/^([^\.]{1,2})\|([^\_])/
/^([^\.]{1,2})$\|[^\_])/

und noch viel mehr.
sobald ein Oder im RegEx ist findet er einfach garnichts mehr -.-

Vlt. könnte mir ja jemand einen Tipp geben, wie ich das sinnvoll verbinden kann.

Vielen Dank.

[TBT]

wieso entwertest du das "oder"?

\| sollte bestimmt | heißen

[Damian1984]

Laut manpage ist das oder ein \| und kein |.
Und | geht defintiv nicht, da ich das anfangs auch hatte, bis ich die manpage gelesen habe

[Damian1984]

Es musste natürlich eine UND Verknüpfung sein...
Wenns interessiert:

my @dirEntries = grep {/^([^\.]{1,2})|\.[\w\_]+/ && /^([^\_])/} readdir CURDIR;

und es soll auch | heißen. Das war wohl eine sehr veraltete Manpage mit dem \|.

Danke trotzdem