Re: No. files in folder

That's fine. But it will only work your pwd is $dir. Otherwise you will have either to move there or prepend it to the filenames. Personally I think that while opendir is great and necessary in some circumstances, it is quite often abused where a simple glob (which does an opendir, and a readdir, and all the dirty jobs for you behind the scenes) would suffice.

Update: incidentally -0 == 0. Probably the code originally had the sort the other way round and [-1,-2] as subscript.

Comment on Re: No. files in folder Select or Download Code

Replies are listed 'Best First'.
Re^2: No. files in folder by gellyfish (Monsignor) on Jun 23, 2005 at 10:33 UTC
Well it's not quite fine, on some OS there is a chance that one could find oneself attempting to delete the current directory and it's parent ('.' and '..'). I would suggest something like: `opendir my $d, $dir; + my @f = sort { -M $b <=> -M $a } map { "$dir/$_" } grep !/^\.{1,2}$/,readdir $d; + unlink @f[-0,1] if @f > 20;` [download] The only problem using the conditional like that on the unlink line is that it makes it more difficult to test whether the unlink succeeded - I would expand it to a full `if` block. /J\	[reply] [d/l] [select]
Re^3: No. files in folder by blazar (Canon) on Jun 23, 2005 at 10:38 UTC
Indeed, this is IMHO another good reason to use glob instead. I thought it is never supposed to return `qw/. ../`, or are there osen where it does?!? I mean `glob ''` of course. One can trim it to {his,her} own needs anyway. And if really* need be, than the cure would be (fundamentally) the same.	[reply] [d/l] [select]
Re^4: No. files in folder by kaif (Friar) on Jun 23, 2005 at 15:03 UTC
No, `glob` can return `.` and `..` and nothing in the documentation seems to promise otherwise (I searched glob, perlop, and File::Glob). However, `glob("")` will not* return any dot-files, including the directories, because it works similarly to shell wildcards. Here's an example of where it does, though: `$ perl -le'$,=" ";print glob(".*")' . .. .bash_history .bash_profile # and so on` [download]	[reply] [d/l] [select]