#!/usr/bin/perl

require "./baza.pl";

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


$ot = '.';
$isx = 'k13_3.txt'; # -------- 5000 strok
$tabBD = 'n8n1';
$sovpadenij = 8; # Уже ищу по 8 


$dbh->do("DROP TABLE $tabBD");

$dbh->do("CREATE TABLE $tabBD
(
id int(11) PRIMARY KEY auto_increment,
d1 VARCHAR(100),
myData1 VARCHAR(12),
myData2 VARCHAR(12),
str1 int(7),
str2 int(7),
sovpalo int(3)
)");



open D, "$ot/$isx";
@u = <D>;
close D;

$kolStr = $#u;


for $str (0..$kolStr){
  
  $str =~ s/[\r\n]//g;
  
  #print $u[$str];
  print $str;
	
	($d, $dn) = split (/\t/, $u[$str]);

  
  #print $dn."\n";

@a = split /\s/, $dn;



for $str2 ($str+1 .. $kolStr){

  next if $str2==$str;
  #print "$str2\n";
  @b = (); %isect = (); %inion = ();


  $str2 =~ s/[\r\n]//g;
	
	($d2, $dn2) = split (/\t/, $u[$str2]);


@b = split /\s/, $dn2;

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

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

@isect = keys %isect;

$is = scalar(@isect);

if($is >= $sovpadenij){
  #print "$u[$str]\n";
  #print "$u[$str2]\n";

$r = join('_', sort {$a<=>$b} @isect );

  
$dbh->do("INSERT INTO $tabBD VALUES (null, '$r', '$d', '$d2', $str, $str2, $is)");


}}

print "\n";
}

$dbh->do("COMMIT");
$dbh->disconnect;