Re^7: Find images regardless of filetype extension.


Your skill will accomplish what the force of many cannot
	PerlMonks

Re^7: Find images regardless of filetype extension.

by Chady (Priest)

on Aug 01, 2005 at 20:09 UTC ( [id://480019]=note: print w/replies, xml )

Need Help??

in reply to Re^6: Find images regardless of filetype extension.
in thread Find images regardless of filetype extension.

Compactness affects readability. And besides, you're counting declarations and braces as lines, if I put it on one line it doesn't mean it's a single statement... if you're looking for compactness, here goes:

I'll assume @files and @dirs are already declared then.

map {$d="$dir/$_";$r= -d $d?\@dirs:\@files;push @$r,$d;} grep {!/^\./}
+ readdir DIR;
[download]

Yes, this uses map in void context, but you want compactness, not efficiency :)

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.
Chady | http://chady.net/

Are you a Linux user in Lebanon? join the Lebanese GNU/Linux User Group.

Comment on Re^7: Find images regardless of filetype extension. Download Code

Replies are listed 'Best First'.

Re^8: Find images regardless of filetype extension.
by zzspectrez (Hermit) on Aug 02, 2005 at 05:10 UTC

Ill give you that is compact!

But I think, that

my @files = map { "$dir/$_" } grep { !/^\.{1,2}\z/ && -f "$dir/$_" } @tmp;

map {$d="$dir/$_";$r= -d $d?\@dirs:\@files;push @$r,$d;} grep {!/^\./} readdir DIR;

On the other hand, I really like your use of the ternary and references. I would not have thought of using it like that. ++ ++ I think that is quite clever. Thanks for the snippet of code.

Only one complaint, the way you wrote you regex it will skip any dot file. So .my-file would not be picked up.

zzSPECTREz

[reply]
[d/l]
[select]

In Section Cool Uses for Perl