#! /usr/bin/perl
#                 in the name of ALLAH

 $DataFileName="../../../DataMaker2/All_Final.data";
# $DataFileName="1.data";
  $KeywordsFileName="../../keys1-remain.data";

 open KeyFile,"<$KeywordsFileName";

 while(<KeyFile>)
 {
   $KeyLine=$_;
   
   if( $KeyLine !~ /^$/ ) 
   {
   
   chomp($KeyLine);
   @Key=split /\|/,$KeyLine;

   $Key_Count=@Key;
   
#   print $Key_Count."\n";
#  for($i=p;$i<$Key_Count;$i++)
#    {
#    print "$Key[$i]|";
#    };
#   print "\n";    
  
 open DataFile,"<$DataFileName";
 while(<DataFile>)
 {
  $Line=$_;

  #chomp($Line);

 if( substr($Line,0,1) ne "@" )
  {
  if( substr($Line,0,1) ne "#" )
    {
     if ( $Line =~ /$Key[0]/gi )
      {

# print "0--- $Line";
  $Line1=$Line;
  $Line2=$Line;  
  $Line3=$Line;
  
      if ( ( $Line1 =~ /$Key[1]/gi)  || ( $Key[1] eq "" ) )
       {
#  print "1--- $Line";
  
       if ( ($Line2 =~ /$Key[2]/gi)  || ( $Key[2] eq "" ) )
        {

# print "2--- $Line\n";
 
        if ( ($Line3 =~ /$Key[3]/gi) || ( $Key[3] eq "" ) )
         {
# print "3--- $Line\n";	 
           $DirName="../tmp/$Key[4]/$Key[5]/$Key[6]/$Key[7]/$Key[8]/$Key[9]";
           `mkdir -p "$DirName"`;
	   print "$DirName\n";
           $OutFileName="$DirName/links.data";
            open OutFile,">>$OutFileName";
            print OutFile  $Line;
            close OutFile;            
         };#if
	};
       };
      };  	 
    };	 
  };#if	 
    @Fields=split('',);

 };#while DataFile
 close DataFile;

 };#if not blank line
}; #while KeyFile
 close KeyFile;