How to find the contents of a directory using PERL

To find the contents of a directory in perl use the opendir function.


 * opendir
 * Operats similar to the open file function open
 * format: opendir(VARIABLE, '/full/directory/or/relative
 * Example: opendir(DIR, '.');
 * open the current directory you are in and set it as variable DIR
 * readdir
 * reads the contents of the directory
 * closedir
 * closes the variable set for the directory read

opendir(DIR, '.'); while (defined($dir = readdir(DIR))) { if ( $dir =~ /\.jpg/i || $dir =~ /\.gif/i) { print "  \n"; } } closedir(DIR);
 * practical example
 * This finds all jpgs and gifs in a directory and displays them for a website

From HowTo Wiki, a Wikia wiki.