Help for this page

Select Code to Download


  1. or download this
         
     @xmlFileNames=grep !/^\.\.?$/ && /\.xml$/,readdir(DIR);
The number of xml you get is the number of total customers.
  2. or download this
       foreach my $customer (@xmlFileNames) {
         $customer =~ s/\.xml//g;
  system ("/usr/local/bin/unzip ${customer}.zip    ${customer}.xml  ${
+customer}.pdf ${customer}.xls");

   }