Mega Code Archive

 

Categories / Perl / File

 

List all the files in a directory

#!/usr/local/bin/perl -w     while (glob("*"))     {        print "File: $_\n";     }