Building a list using perl
December 23rd, 2008
Ultram Without Prescription
Nexium No Prescription
Zelnorm For Sale
Antabuse Generic
Buy Amoxil Online
Prednisone Without Prescription
Penisole No Prescription
Propecia For Sale
Amoxil Generic
Buy Clarinex Online
In 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”;
}
