Using Glob function

Hi all,
I am having a problem using Glob function I am using something like
my @dir_files=glob "$path/*";

Where $path specifies any directory, where in iam trying to list all the directories and files under it....I am calling it recursively do get all files under sub-directories also

The problem I am Having is If $path has any directory with spaces like
About us its truncating the spaces and complaining abt not finding such directory, Can any one help, Thanks in Advance

Find more posts tagged with

Comments

nipper

How about

my @dir_files=glob "'$path/*' ";

I added single quotes inside the double.

siddin

I dont know but some how it worked by!!!!

use File::Glob qw(bsd_glob);
my @dir_files=bsd_glob "$path/*";

nipper

I dont know but some how it worked by!!!!

use File::Glob qw(bsd_glob);
my @dir_files=bsd_glob "$path/*";

Basically, you are using qw as a second set of quotes around the path.

siddin

So does bsd_glob function doesnt have any additional functionality????.I have seen somewhere that the default glob doesnt handle spaces so well so need to import bsd_glob form File::Glob module

" Due to historical reasons, CORE::glob() will also split its argument on whitespace, treating it as multiple patterns, whereas bsd_glob() considers them as one pattern."

nipper

Well, I will let Adam answer this, since there is a bsd_glob in Glob.pm, however it really doe snot appear to do squat except call doglob.

Adam Stoller

Basically, you are using qw as a second set of quotes around the path.

The qw() was for specifying the method to import from the particular module - not the usage of that method.

FWIW:

use strict;
use warnings;
use File::Glob qw(:glob);

my $path = "/Users/ghoti"; # replace with your desired path

my @f1 = glob "$path/*";
my @f2 = glob qq($path/*);
my @f3 = <$path/*>;
my @f4 = bsd_glob('~/*', GLOB_TILDE);

opendir(DIR, $path) || die "[opendir] '$path' ($!)";
my @f5 = grep { !/^\./ } readdir(DIR);
closedir(DIR);

print "f1: " . @f1 . "\nf2: " . @f2 . "\nf3: " . @f3 . "\nf4: " . @f4 . "\nf5: " . @f5 . "\n";

results for me in:

f1: 28
f2: 28
f3: 28
f4: 28
f5: 28

There are probably a dozen other ways to do it too.

Not sure why the original use of glob failed to work though - sorry.

nipper

my $path = "/Users/ghoti"; # replace with your desired path

Not sure why the original use of glob failed to work though - sorry.

His post mentioned he had a space in the dir that broke glob but not bsd_glob

Adam Stoller

His post mentioned he had a space in the dir that broke glob but not bsd_glob

Ah - missed that - okay.
using a directory with spaces in it and 3 files within that directory - with the previously posted code - I get:

f1: 2
f2: 2
f3: 2
f4: 0
f5: 3

If I make a few changes (omitting f2 since it would be the same as f1):

use strict;
use warnings;
use File::Glob qw(bsd_glob);

my $path = "/tmp/dir with space"; # replace with your desired path

my @f1 = glob qq("$path/*");
my @f3 = <"$path/*">;
my @f4 = bsd_glob("$path/*");
opendir(DIR, "$path") || die "[opendir] '$path' ($!)";
my @f5 = grep { !/^\./ } readdir(DIR);
closedir(DIR);

print "f1: " . @f1 . "\nf3: " . @f3 . "\nf4: " . @f4 . "\nf5: " . @f5 . "\n";

then I get:

f1: 3
f3: 3
f4: 3
f5: 3