File Perl

  1. Home
  2. Perl
  3. File
  4. Look for all files that end with the extension pl
#!/usr/local/bin/perl -w
    while (glob("*.pl"))
    {
       print "File: $_\n";
    }