求助数据库中的对象和svn做对比怎么写

shanck

那位高手会写数据库中对象和svn之间做对比的脚本，比如说，数据库a中的存储过程a1和svn上的这个存储过程做比较，对比数据不一致的情况。
比如：
#!/user/bin/perl
use Net::FTP;
use DBI;
use Time::Local;
use Win32API::File;
use Net::Telnet;
use File::Copy;
my $psql_text  ="";
my @data_84    ="";
my @data_86    ="";
my $Chk_Tbl    ="";
my $new_copy   ="D:/work/数据库修改/differnt_svn.txt";
my $Filename   ="";
my $filedir    ="D:/work/SNV/cnc";       #在这输入文件的地址
my $file_tmp   ="";
##------------数据库参数区--------------
my $HostName_4 ="121.33.235.14";
my $HostName_6 ="142.56.125.56";
my $User_ID     ="u_cnc";
my $User_PWD    ="123456789";
my $DBName      ="cnc_abc";
my $Port        ="5435";
my $Table_Name="\'tg_cdr_noinfo_net\'";

$psql_text=

在往下就不知道怎么写了，

shanck

请斑主和各位高手给些指导，怎么写数据库中的存储过程和svn上的存储过程作比较