Mega Code Archive

 

Categories / Perl / File

 

Look for all files that end with the extension pl

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