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

Strat

2007-07-05 21:00

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=bo,04.07.2007, 15:27]

Code (perl): (dl )

opendir my $dir, $home or die $!;
my @files = grep { $_ !~ /\.\.?$/ } readdir ($dir);
closedir $dir;
print qq($_\n) for @files;

[/quote]
ein ^ vergessen, damit dateien namens abc.. auch durchrutschen:

Code (perl): (dl )

my @files = grep { $_ !~ /^\.\.?$/ } readdir $dir;

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/