Glob nicht mit Dateien ? - #52087 (Allgemeines zu Perl)

[E|B]

2003-09-15 21:11

User since
2003-08-08
2561 Artikel
HausmeisterIn

Wieso machst du es so kompliziert?

Code: (dl )

1
2
3

opendir(D, "data");
@data = grep{$_ =~ /\.txt$/i} readdir(D);
closedir(D);

IMHO die schnellste Variante! ;)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]