opendir DIRHANDLE , EXPR
Opens a directory named EXPR for processing by readdir(), telldir(), seekdir(), rewinddir(), and closedir(). Returns TRUE if successful and, of course, false, if you don't have permission to read the directory, or it doesn't exist, or the hard drive has crashed, or if the computer is just cranky.
DIRHANDLE may be an expression whose value can be used as an indirect dirhandle, usually the real dirhandle name. If DIRHANDLE is an undefined scalar variable (or array or hash element), the variable is assigned a reference to a new anonymous dirhandle. DIRHANDLEs have their own namespace separate from FILEHANDLEs. it should be all uppercase, like a filehandle, if you want to please other Perl programmers and keep Perl from confusing READDIR (a less than ideal, but valid name for a directory handle) with readdir (another Perl function).
EXPR is an express that references a path and directory. You can use forward slashes (/) on Windows and DOS and your Perl script will then work in both the *nix and M$ worlds.
Here is a simple example that opens a directory in the path you pass to it and reads all the file names into a hash.
$path = shift; opendir(DIR, $path) or die Cannot open $path: $!; @FILES=readdir(DIR); closedir(DIR);
Note that the names in FILES do not include the path and do include "." and ".." which you probably don't care to have. You can eliminate them with;
@FILES=grep(!/^\.\.?}$/, readdir(DIR));
The regular expression used in the grep can be extended to filter all sorts of ways, returning only files with a specific extension or starting with some text, etc...
To check for all the subdirectories in a directory, try code like this:
$path = shift; $path = "." unless $path; opendir( DIR, $path ) or die "Can't open $path: $!"; while ( $entry = readdir( DIR ) ) { $type = ( -d "$path\\$entry" ) ? "dir" : "file"; # $path is crucial! print "$type\t$entry\n"; } closedir( DIR );
opendir, redir, closedir offer the most power and flexibility; but if you just want to read the files out of directory, you can also glob them:
$path = shift; $path .= "/*" while( $name=glob($path) ) { print "$name"; }
The * added to the path is a c shell (no matter what shell you use) glob pattern and NOT a regular expression. "?" matches any single character, "*" matches any number of characters, "[abc]" matches the characters "a", "b", or "c" (but not on a Mac) and "{abc,b,c}" matches the strings "abc", "b", or "c". glob DOES return the path along with the file name. Why don't you see glob often in Perl code? Because you can short-hand it like this:
while( </tmp/*.txt> ) print
so it is being used more than you think. When you just want all the include files in the folder, nothing beats <*.h> !
See:
See also:
file: /Techref/language/perl/opendir.htm, 4KB, , updated: 2007/8/16 12:38, local time: 2024/12/23 02:56,
owner: JMN-EFP-786,
3.15.223.129:LOG IN
|
©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions? <A HREF="http://sxlist.com/Techref/language/perl/opendir.htm"> Perl Programming, Opening a directory in Perl</A> |
Did you find what you needed? |
Welcome to sxlist.com!sales, advertizing, & kind contributors just like you! Please don't rip/copy (here's why Copies of the site on CD are available at minimal cost. |
Welcome to sxlist.com! |
.