如何比较啊?

sunzhiguolu

看了篇帖子, 内容如下:

create table A(
x char(1) not null,
y char(2) null,
primary key(x)
)

create table B(
x char(1) not null,
y char(2) null,
z char(3) null,
primary key(x)
)

我的想法是：加入这两个建表语句分别在A.txt ,B.txt 中
然后采用正则表达式分别将这两个表序列化（如A|x char(1) ... ）(B|x char(1) ....) ，然后再比较是否相同就可以了。
请教高手帮忙实现。谢谢！！

感觉按照楼主思路简单的进行字符串比较的话, 可能存在一些问题. (没有根据的瞎想)
比如:

create table A(
y char(2) null,
x char(1) not null,
primary key(x)
)

create table B(
x char(1) not null,
y char(2) null,
z char(3) null,
primary key(x)
)

字段名称, 类型/长度, 能否为空 全部一致, 只是create table 语句创建字段的顺序不同, 这种情况下, 该如何进行比较. 还请大家指点, 谢谢大家...

sunzhiguolu

在这里 我有个地方不懂 如何准确的抓取字段的创建语句 而不会错误的命中其他的语句.
上面的 create table 语句比较简单, 其中没有添加一些非创建字段语句 只包含了一个主键约束 primary key(x), 好了, 我的问题描述完毕, 最后谢谢大家.

RE_HASH

依旧不清楚您想要什么结果

sunzhiguolu

回复 3# RE_HASH
不好意思, 刚才忘了说了, 不同的话 直接输出不同即可, 否则啥都不输出. (语句中多余的空白不能作为比较依据)

   

RE_HASH

把你想要的结果写出来看看

sunzhiguolu

回复 5# RE_HASH
我的这个可能有些问题, 比如: 不能有效的判断哪些是创建字段的语句.

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. $/ = '';
   
6. my (@aData);
   
7. while (<DATA>){
   
8.     chomp;
   
9.     s/\h+/ /g;
   
10.     s/\n/|/g;
    
11.     s!(?<=\(\|)(.*,)!join ("|",sort($1=~/[^|]+/g))!e;
    
12.     push (@aData, $_);
    
13. }
    
14. 
    
15. print "Diff!\n" if ("$aData[0]" ne "$aData[-1]");
    
16. 
    
17. __DATA__
    
18. create table A(
    
19. y char(2) null,
    
20. x char(1) not null,
    
21. primary key(x)
    
22. )
    
23. 
    
24. create table B(
    
25. x char(1) not null,
    
26. y char(2) null,
    
27. z char(3) null,
    
28. primary key(x)
    
29. )
    

复制代码

sunzhiguolu

假设 有这样的 create table 语句就不行了.

create table A(
y char(2) null,
x char(1) not null
)

create table B(
x char(1) not null,
y char(2) null,
z char(3) null
)

jason680

回复 7# sunzhiguolu

create table A(
y char(2) null,
x char(1) not null
)

create table B(
x char(1) not null,
y char(2) null,
z char(3) null
)
   

sunzhiguolu

回复 8# jason680
大神, 我还是没有看明白 您能给个示例代码吗. 谢谢您...

   

jason680

$ perl table_diff.pl
compare table [A] and [B]
----------------------------------------------
  [A] z : *** NOT FOUND ***
  [B] z : z char(3) null

compare table [A] and [C]
----------------------------------------------
  [A] primary key : primary key(x)
  [C] primary key : *** NOT FOUND ***

compare table [A] and [D]
----------------------------------------------
  [A] primary key : primary key(x)
  [D] primary key : *** NOT FOUND ***
----------------------------------------------
  [A] z : *** NOT FOUND ***
  [D] z : z char(3) not null

compare table [B] and [C]
----------------------------------------------
  [B] primary key : primary key(x)
  [C] primary key : *** NOT FOUND ***
----------------------------------------------
  [B] z : z char(3) null
  [C] z : *** NOT FOUND ***

compare table [B] and [D]
----------------------------------------------
  [B] primary key : primary key(x)
  [D] primary key : *** NOT FOUND ***
----------------------------------------------
  [B] z : z char(3) null
  [D] z : z char(3) not null

compare table [C] and [D]
----------------------------------------------
  [C] z : *** NOT FOUND ***
  [D] z : z char(3) not null


$ cat  table_diff.pl
use strict;
use warnings;

my ($sTable, @aTable, %hTable);
my $sGet_table = 0;
while(<DATA>){
  chomp;
  next if(m/^\s*(#|$)/);
  s/^\s+|\s+$//g;
  if(m/^create\s+table\s+(\w+)[(]/){
    $sTable = $1;
    push @aTable, $sTable;
    $sGet_table = 1;
    next;
  }
  $sGet_table = 0 if(m/^[)]/);
  next if($sGet_table == 0);
  
  s/\s+/ /g;  
  s/,$//;
  if(m/primary key[(](\w+)[)]/){
    $hTable{$sTable}{"primary key"} = $_;
    next;
  }
  if(m/^(\S+)/){
    $hTable{$sTable}{$1} = $_;
  }
}

die "less than 2 tables \n" if(@aTable <2);
foreach my $n(0 .. @aTable-2){
  foreach( $n+1 .. @aTable-1){
    compare_table(@aTable[$n, $_]);
  }
}


sub compare_table{
  my ($sT1, $sT2) = @_;
  my $sMsg = "compare table [$sT1] and [$sT2]\n";
  foreach(keys $hTable{$sT1}){
    if(! exists $hTable{$sT2}{$_}){
      $sMsg .= "----------------------------------------------\n";
      $sMsg .= "  [$sT1] $_ : $hTable{$sT1}{$_}\n";  
      $sMsg .= "  [$sT2] $_ : *** NOT FOUND ***\n";
      next;
    }
    if($hTable{$sT1}{$_} ne $hTable{$sT2}{$_}){
      $sMsg .= "----------------------------------------------\n";
      $sMsg .= "  [$sT1] $_ : $hTable{$sT1}{$_}\n";  
      $sMsg .= "  [$sT2] $_ : $hTable{$sT2}{$_}\n";  
    }
  }

  foreach(keys $hTable{$sT2}){
    if(! exists $hTable{$sT1}{$_}){
      $sMsg .= "----------------------------------------------\n";
      $sMsg .= "  [$sT1] $_ : *** NOT FOUND ***\n";
      $sMsg .= "  [$sT2] $_ : $hTable{$sT2}{$_}\n";  
    }
  }
  print "$sMsg\n";
}
__DATA__
...
create table A(
y   char(2)   null,
x char(1)  not null,

primary  key(x)
)
...
create table B(
x char(1) not null,
y char(2) null,
z   char(3) null,
primary   key(x)
)
...
create table C(
y char(2) null,
x char(1) not null
)

create table D(
x char(1) not null,
y char(2) null,
z char(3) not null
)