regexp + löschen - #70808 (Allgemeines zu Perl)

vayu

2006-10-17 15:08

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

my @dateien = grep(!/-{3}/, glob($srcdir."*$suffix"));

so kriegst nur die dateien ohne ---

wenn du die auch haben willst, aber die --- weggeschnitten werden sollen, dann machs so:

Code: (dl )

1
2

my @dateien = glob($srcdir."*$suffix");
s/---// foreach(@dateien);

\n\n