Problems with directory tree's. 1

vcherubini · Jul 19, 2000

Hello, I have a problem with directory tree calling in Perl. The code that I have is this: opendir(DIRHANDLE, "C:\Cd\Data\&quot

or die "Cant open /Cd/Data/: $!"; while ( defined ($filename = readdir(DIRHANDLE)) ) { print "$filname\n"; } closedir(DIRHANDLE); which should print out a file in the directory that I am accessing, except it doesn't. Any help on how to open a directory, put all of the files in the directory into an array, and print each member of the array with a foreach loop? (I know how to do the last one) Any help would be appreciated. Thanks a lot. -Vic

AndyBo · Jul 19, 2000

Try this: opendir(DIRHANDLE, "C:\Cd\Data\&quot

or die "Cant open /Cd/Data/: $!"; # Get a list of files, excluding files where their name # begins with ".", and put them into the array @Files. @Files = grep(!/^\./, readdir(DIRHANDLE)); closedir(DIRHANDLE); foreach $file (@Files) {     print $file, "\n"; } <a href=mailto: > </a> <a href= > </a> -- 
0 1 - Just my two bits

vcherubini · Jul 20, 2000

AndyBo: Thanks for the help. I copied the script into my text editor, saved it, and ran it, and it still didn't work. I have looked in both the Perl Cookbook and Learning Perl on Win32 Systems. Both of them have the same way of doing as you and I, so it must be because I am using an older version of Perl or something like that. Thanks for the help though. -Vic

MikeLacey · Jul 21, 2000

Vic, couple of questions: What happens when you run it? What version of Perl are you running? What platform are you running on? (Win98, Unix, etc) Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

vcherubini · Jul 21, 2000

Sorry I was not clear enough. I am, sadly, using Perl 5.003, so I should probably think about updating that. When I run it, I get a whole bunch of white space where the file names in the directory should be. It looks like its adding a whole bunch of \n's. And finally, I am running on Win2k, but I don't think that should have too much a difference. Thanks for all the help.

damann · Jul 22, 2000

Hey try this instead, it looks the same but this works on my machine for sure. opendir (DIR, "C:\Cd\Data\&quot

or die "Can't open because: $!\n"; @allfiles = sort grep(!/^*\./, readdir(DIR)); closedir (DIR); foreach $file(@allfiles) { print "$file\n"; }

vcherubini · Jul 22, 2000

Thank you o so much everyone, especially Damann. It was not working because I did something very stupid. Perl didn't like the C:\Cd\data\ part, so I just had to change it to \Cd\Data\ and it worked fine. Thanks for all the help. -Vic

MikeLacey · Jul 22, 2000

Hmmm, if you use readdir like this: opendir (DIR, "C:\\work&quot

¦¦ die "Can't open because: $!\n"; foreach $file(readdir(DIR)) {     print "$file\n"; } closedir (DIR); then it would cope with very large directories... Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Problems with directory tree's. 1

vcherubini

Programmer

AndyBo

MIS

vcherubini

Programmer

MikeLacey

MIS

vcherubini

Programmer

damann

Technical User

vcherubini

Programmer

MikeLacey

MIS

Similar threads

Part and Inventory Search

Sponsor