Building a list using perl
Tuesday, December 23rd, 2008In simpleist terms. Here is a perl script to build a list from a directory.
#!/usr/bin/perl
opendir(DOCS1, "/Users/bradrice/Documents/UAworkFolder/stadium/cams/slideshow/images/quot;);
my @files = grep !/^\.\.?/, readdir DOCS1;
foreach $file(@files) {
print $file . “\n”;
}
