Opened by MarkusH at 2016-10-06 21:49
User since
2003-08-06
2253 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-06
2253 Artikel
ModeratorIn
@Linuxer hat Dir eine sehr gute Antwort geschrieben.
Da ist alles drin.
Ich war zu müde und faul gewesen, mir anzulesen, wie man rewinddir verwendet, da ich es ja nur akademisch bräuchte.
Die kurze Modifikation (vielleicht nicht für Produktion geeignet, denn sie verdoppelt den Speicherbedarf) ist Deiner ähnlicher und umgeht ebenfalls den rewind:
Da ist alles drin.
Ich war zu müde und faul gewesen, mir anzulesen, wie man rewinddir verwendet, da ich es ja nur akademisch bräuchte.
Die kurze Modifikation (vielleicht nicht für Produktion geeignet, denn sie verdoppelt den Speicherbedarf) ist Deiner ähnlicher und umgeht ebenfalls den rewind:
Code (perl): (dl
)
1 2 3 4 5
opendir my $dir, $path or die "Can not open $path for reading: $!\n"; @files = grep {/\.ex[12]$/i} readdir $dir; @files1 = grep {/1$/i} @files; @files2 = grep {/2$/i} @files; closedir $dir;
Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.
Winter is Coming
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.
Winter is Coming