[seb2]

hi everybody,

first of all, i did rtfm and i searched the net for quite some time. i did find related thing, but no solution.

what i need is this: something simple to get the complete paths to all files in a directory. the name of the directory is in a variable.

what i'm doing now is this:
</font><blockquote><font size="1" face="Geneva, Verdana, Arial, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">push @files, glob &quot;$_/*&quot;;</pre><hr /></blockquote><font size="1" face="Geneva, Verdana, Arial, sans-serif">this works fine if the directory name in $_ doesn't contain a space. but if it does... no go.

any clues?

[forty two]

</font><blockquote><font size="1" face="Geneva, Verdana, Arial, sans-serif">quote:</font><hr /><font size="1" face="Geneva, Verdana, Arial, sans-serif">Originally posted by seb2:
<strong>
what i need is this: something simple to get the complete paths to all files in a directory. the name of the directory is in a variable.
any clues?</strong></font><hr /></blockquote><font size="1" face="Geneva, Verdana, Arial, sans-serif">This will list all the files in your current directory, including with spaces:

</font><blockquote><font size="1" face="Geneva, Verdana, Arial, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">#!/usr/bin/perl -w

use strict;

my @filenames = glob(&quot;*&quot;

my $filename;
foreach $filename (@filenames)
{
print &quot;$filename\n&quot;;
}</pre><hr /></blockquote><font size="1" face="Geneva, Verdana, Arial, sans-serif">Hope that helps.

-JAPH

[seb2]

first of all, thanks.

i should have mentioned that the line above is only a part of a script that is being called from another application and also hands it a path from which it recursively traverses all subdirectories.

it resolves paths to directories just fine as long as the name of the directory doesn't have a space in its name. -- say: the script partially works.

i've come so far to find out that a space in the filename makes glob take this as two different arguments -- which of course is not what i want.
on several sites, i read that i should use "use File::Glob ':glob';" or "use File::Glob qw(:globally :case);" and that this would override the built-in glob and make it work.

but somehow, i can't get this to work. any other ideas?

[seb2]

ok, i found it. -- no more need to help.

thanks anyway.

[howardm4]

why not do a

opendir
@list_of_files = readdir;
closedir

[seb2]

thanks, howardm4!

your suggestion is pretty much what i'm doing.

to be exact, it's this:

</font><blockquote><font size="1" face="Geneva, Verdana, Arial, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> opendir TMPDIR, $_;
while (my $fle = readdir TMPDIR)
{
next if $fle =~ /^\.\.?$/;
# this is where i do stuff with the file
}</pre><hr /></blockquote><font size="1" face="Geneva, Verdana, Arial, sans-serif">using a glob would have been nicer, though, because
a) it returns complete paths -- which is what i need in my context
b) it doesn't return "." and ".."

but -- whatever -- it now works.