Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
$dir = "C:\\Users\\user\\Desktop\\test";
...
@files = sort grep (!/^\.$|^\.\.$/, readdir(DIR));
closedir (DIR);
print "@files\n";
  2. or download this
    
PBILLSTA.doc
...
P537_LC.doc
AODG.doc
MAD004PN.doc