#! /usr/bin/perl

 $DataFileName="dir.list.sorted";
 
 open DataFile,"<$DataFileName";
 while(<DataFile>)
 {
  $Line=$_;
  chop($Line);
  @Fields=split(/\//,$Line);
  
   $FileName="./$Fields[0]/$Fields[1]/$Fields[2]/$Fields[3]/$Fields[4]/$Fields[5]/$Fields[6]/$Fields[7]/$Fields[8]/";
   
#   print "$FileName\n";
#    `ll -d $FileName`;

  `mkdir -p "./$Fields[0]/$Fields[1]/$Fields[2]/$Fields[3]/$Fields[4]/$Fields[5]/$Fields[6]/$Fields[7]/$Fields[8]"`;
#  print "./$Fields[0]/$Fields[1]/$Fields[2]/$Fields[3]/$Fields[4]/$Fields[5]/$Fields[6]/$Fields[7]/$Fields[8]\n";

  `cp ../../temp/regional/middle/iran/travel/aco/hotels/cheap_hotels/cheapest_hotels/9/index.php "./$Fields[1]/$Fields[2]/$Fields[3]/$Fields[4]/$Fields[5]/$Fields[6]/$Fields[7]/$Fields[8]/$Fields[9]"`;
  `cp ../../temp/regional/middle/iran/travel/aco/hotels/cheap_hotels/cheapest_hotels/index.php "./$Fields[1]/$Fields[2]/$Fields[3]/$Fields[4]/$Fields[5]/$Fields[6]/$Fields[7]/$Fields[8]"`;
    `cp ../../temp/regional/middle/iran/travel/aco/hotels/cheap_hotels/index.php "./$Fields[1]/$Fields[2]/$Fields[3]/$Fields[4]/$Fields[5]/$Fields[6]/$Fields[7]"`;
      `cp ../../temp/regional/middle/iran/travel/aco/hotels/index.php "./$Fields[1]/$Fields[2]/$Fields[3]/$Fields[4]/$Fields[5]/$Fields[6]"`;
        `cp ../../temp/regional/middle/iran/travel/aco/index.php "./$Fields[1]/$Fields[2]/$Fields[3]/$Fields[4]/$Fields[5]"`;
          `cp ../../temp/regional/middle/iran/travel/index.php "./$Fields[1]/$Fields[2]/$Fields[3]/$Fields[4]"`;
            `cp ../../temp/regional/middle/iran/index.php "./$Fields[1]/$Fields[2]/$Fields[3]"`;
              `cp ../../temp/regional/middle/index.php "./$Fields[1]/$Fields[2]"`;
                `cp ../../temp/regional/index.php "./$Fields[1]"`;

  
 };
 close DataFile;