Help for this page

Select Code to Download


  1. or download this
    
use strict;
...
my @files = grep { /\.(html?|txt|pdf|ppt|csv|doc)$/i} readdir $DH;
print "$_\n" for @files;
closedir $DH;
  2. or download this
    my @files = grep { /\.(html?|txt|pdf|ppt|csv|doc)(\.|$)/i} readdir $DH
+;