Dateien in einem Verzeichnis auslesen: Problem dabei - #78191 (Allgemeines zu Perl)

RPerl

2007-07-07 17:38

User since
2006-11-26
384 Artikel
BenutzerIn

user image

Hallo Leute,

ich hab mir, als ich das posting gelesen habe, ueberlegt, ob und v.a. wie man das ganze auch ohne grep() machen kann.
Zuerst dachte ich daran, mit unshift() oder splice() die ersten beiden Inhalte vom array zu entfernen. Dafuer war ich leider zu bloed. :*(
Nach ca. 60 Minuten rumprobieren, hab ich das hier gezaubert:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;


my $dir = '/home/dieter';

opendir(DIR, $dir) || die "can\'t opendir $dir: $!";
my @files = readdir(DIR);
for(my $i = 0; $i <= $#files; $i++) {
    print $files[$i], "\n" if $files[$i] !~ /\./;
}


closedir(DIR);

Nun aber meine Frage: Wie kann ich das ganze elegant, ohne grep und bestenfalls sogar ohne regex loesen?

Ich freu mich auf Loesungen,

rPerl\n\n