Was vor und nach darf bedeutet, verstehe ich nicht.
Es können also 6 Ziffern sein oder 1 Nichtziffer gefolgt von 6 Ziffern oder 6Ziffern gefolgt von 1 Nichtziffer oder 1 Nichtziffer gefolgt von 6 Ziffern gefolgt von 1 Nichtziffer.

Ich denke du willst sowas?
(^\d{4})|(\D?(\d{6})\D?)

U:\>perl -E "'1234_120104_001234_435345345435.txt' =~ /(^\d{4})|(\D?(\d{6})\D?)/; say $1||$2"
1234

U:\>perl -E "'20130307.1_000323_20130315110858.txt' =~ /(^\d{4})|(\D?(\d{6})\D?)/; say $1||$2"
2013

U:\>perl -E "'002312._0201304113_xt_21.txt.txt' =~ /(^\d{4})|(\D?(\d{6})\D?)/; say $1||$2"
0023

Last edited: 2013-06-24 09:48:11 +0200 (CEST)