require "./baza.pl";

$tab1 = 'n9n1';

$tab2 = 'n9n2';



$dbh->do("SET autocommit=0");



$s = "SELECT * FROM $tab1 where sovpalo=10";
$sth = $dbh->prepare($s);
$sth->execute;



   
while (@r = $sth->fetchrow_array){
  
  @a = split /_/, $r[1];

  print "$r[0]\n";


  $s2 = "SELECT * FROM $tab1 where str1=$r[5] or str2=$r[5]";
  $sth2 = $dbh->prepare($s2);
  $sth2->execute;
  while (@r2 = $sth2->fetchrow_array){
    next if $r2[0] <= $r[0];
    
    
    @b = (); %isect = (); %inion = ();



    @b = split /_/, $r2[1];

    #print @a;print "\n";
    #print @b;print "\n";


    for $e (@a, @b) {$inion{$e}++ && $isect{$e}++;}

    @isect = keys %isect;

    $is = scalar(@isect);

    if($is > 8){
      $r = join('_', sort {$a<=>$b} @isect );
      
      $dbh->do("INSERT INTO $tab2 VALUES (null, '$r', '$r[4]-$r[5]-$r2[4]-$r2[5]', $is)");

    }
    
    #print "$r2[0]\n";
     

    }
  }

$dbh->do("COMMIT");
   

$sth->finish;
$sth2->finish;
$dbh->disconnect;

+----+---------------------------------+----------+-----------+------+------+---------+
| id | d1                              | myData1  | myData2   | str1 | str2 | sovpalo |
+----+---------------------------------+----------+-----------+------+------+---------+
|  1 | 5_7_8_27_39_50_58_62_70         | 2.1.2012 | 8.1.2012  |    0 |    6 |       9 |
|  2 | 8_22_23_34_37_43_50_55_57       | 2.1.2012 | 5.2.2012  |    0 |   34 |       9 |
|  3 | 5_15_27_34_37_39_40_57_62_70    | 2.1.2012 | 20.2.2012 |    0 |   49 |      10 |
|  4 | 5_8_15_22_27_37_43_58_70        | 2.1.2012 | 7.3.2012  |    0 |   65 |       9 |
|  5 | 8_22_23_27_39_40_44_50_55_57    | 2.1.2012 | 9.3.2012  |    0 |   67 |      10 |
|  6 | 5_7_8_27_37_39_40_58_62         | 2.1.2012 | 27.3.2012 |    0 |   85 |       9 |
|  7 | 15_23_34_37_40_41_43_44_58      | 2.1.2012 | 8.4.2012  |    0 |   97 |       9 |
|  8 | 7_8_23_27_34_41_57_58_70        | 2.1.2012 | 10.4.2012 |    0 |   99 |       9 |
|  9 | 15_22_34_37_40_41_43_55_57      | 2.1.2012 | 11.4.2012 |    0 |  100 |       9 |
| 10 | 5_15_22_23_39_43_44_50_55_57_62 | 2.1.2012 | 16.5.2012 |    0 |  135 |      11 |
+----+---------------------------------+----------+-----------+------+------+---------+
10 rows in set (0.22 sec)

require "./baza.pl";  ############# Подключение к БД

$tab1 = 'n9n1';

$tab2 = 'n9n2';



$dbh->do("SET autocommit=0"); ############## Запрос к БД



$s = "SELECT * FROM $tab1 where sovpalo=10"; ################## Ещё запрос
$sth = $dbh->prepare($s);  ###############
$sth->execute;  ############



   
while (@r = $sth->fetchrow_array){ ################### Цикл по запросу
  
  @a = split /_/, $r[1]; ######################### Вытягиваем числа в массив с 1 столбца, не с 0-го! 

  print "$r[0]\n";


  $s2 = "SELECT * FROM $tab1 where str1=$r[5] or str2=$r[5]"; ## Второй запрос внутри первого
  $sth2 = $dbh->prepare($s2); ############Нам интересны только строки в которых упоминается наша строка
  $sth2->execute;
  while (@r2 = $sth2->fetchrow_array){########## Цикл по запросу
    next if $r2[0] <= $r[0];                     ########### Строки только больше строки первого запроса
    
    
    @b = (); %isect = (); %inion = ();  ####### Это и ниже - для сравнения количества совпадений
    @b = split /_/, $r2[1];
    for $e (@a, @b) {$inion{$e}++ && $isect{$e}++;}
    @isect = keys %isect;
    $is = scalar(@isect);

    if($is > 8){ ######################## Только если количество совпадений больше или равно 9
      $r = join('_', sort {$a<=>$b} @isect ); ################   Сортировка  
      
      $dbh->do("INSERT INTO $tab2 VALUES (null, '$r', '$r[4]-$r[5]-$r2[4]-$r2[5]', $is)"); ########### запись в новую таблицу

    }
     

    }
  }

$dbh->do("COMMIT");       ############## Запрос к БД. Пишем всё.

   

$sth->finish; ############ Прибираемся и рвём соединение
$sth2->finish;
$dbh->disconnect;