Re: glob() and dot files (updated)

You might be interested in my node To glob or not to glob for the caveats of glob.

What would be the easiest to accomplish "listing all files/subdirectories including dotfiles/dotsubdirs but without the . and .." and "listing all dotfiles/dotsubdirs only, without the . and .."?

If you mean core-only, then:

use File::Spec::Functions qw/ no_upwards catfile catdir /;
opendir my $dh, $path or die "$path: $!";
my @files = map { -d catdir($path,$_) ? catdir($path,$_)
    : catfile($path,$_) } sort +no_upwards readdir $dh;
closedir $dh;
[download]

Note: I think that on some OSes (VMS?), there's a difference between catfile and catdir, that would require you to use the -d test, but I believe the above should work fine on any other OS. (Or, you can omit the catfile entirely if bare filenames are ok.) <update> Confirmed the difference between catfile and catdir with File::Spec::VMS and File::Spec::Mac, so I updated the above example with the -d test accordingly. </update> <update2> I don't have a VMS or Classic Mac to test on, but I realized that my update had a bug in that I wasn't doing the -d test on the full filename. So I hope that this updated version would really be correct on those platforms. </update2>

If you need absolute pathnames, you probably want to add a $path = rel2abs($path); (also from File::Spec). Otherwise, if CPAN is fine, then I really like Path::Class, its children includes everything except the . and .. by default:

use Path::Class;
my @files = dir($path)->children();
# - or - 
my @files = dir($path)->absolute->children();
[download]

Comment on Re: glob() and dot files (updated) Select or Download Code

Replies are listed 'Best First'.
Re^2: glob() and dot files (updated) by perlancar (Hermit) on Apr 13, 2020 at 09:46 UTC
Hi haukex, Thanks for pointing out about your glob() post. I think I read it in the past. If wildcard is problematic, this gives me an idea of creating a glob-like function but with regex instead: re_glob('.*') or re_glob(qr/\.foo/). It will not skip dotfiles by default. By the way, most of the time for practical reasons I don't bother with File::Spec at all, because why would I sacrifice myself using catfile() and no_upwards when I will not be using path separator other than "/", and parent directory other than ".." (probably for the rest of my life).	[reply]
Re^3: glob() and dot files by haukex (Archbishop) on Apr 13, 2020 at 09:59 UTC
By the way, most of the time for practical reasons I don't bother with File::Spec at all, because why would I sacrifice myself using catfile() and no_upwards when I will not be using path separator other than "/", and parent directory other than ".." (probably for the rest of my life). Well, if you know your scripts are only ever going to be run on NIX, then sure. But what you're sacrificing is portability. For example, even nowadays, there are some Windows programs that can't handle `/` path separators and require `\`. Personally, although I've written code like `"$path/$file"` myself, I usually like my code to be as portable as possible, and if you're considering writing a `re_glob(qr/\.foo/)` function, you might want to release it as a module, and then portability becomes important, IMHO. * `use Path::Tiny; my @files = path($path)->children(qr/\.foo/);` But sadly, Path::Tiny "does not try to work for anything except Unix-like and Win32 platforms." Alternative: `use Path::Class; my @files = grep {$_->basename=~/\.foo/} dir(".")->children;`	[reply] [d/l] [select]
Re^4: glob() and dot files by soonix (Chancellor) on Apr 13, 2020 at 11:28 UTC
For example, even nowadays, there are some Windows programs that can't handle / path separators and require \. I don't remember why I wanted to call `explorer.exe` from Perl, but I did, and found out it understands pathes only with backslashes...	[reply] [d/l]