数据库系统

开发平台：

Unix_Linux

step2.pl：源码内容

							#!/usr/bin/perl
##
##  MAIN
##
$table_name="";
$old_name="";
$references_table="";
$references_column="";
$is_create=0;
while ( <> ) 
{
	chop;
	$str=$_ ;
	if ($is_create == 1) {
		$table_name=$str;
	  	$is_create=2;
	}
	if ( $str =~ /^CREATE TABLE/ ){
		$is_create=1;
	}
	if ($is_create == 2) {
	if ($str =~ /^FOREIGN KEY/){
		($d1,$d2,$d3,$columns,$d4,$d5,$references_table,$d6) = split (/ /,$str,8);
		#printf "Table $table_name $columns $references_tablen";
		if ($table_name ne $old_name ){	
			printf "--n-- Trigger for $table_namen--nn";
		}
		foreach $i ( split(/,/ , $columns ) ){
			print "CREATE INDEX I_$table_name";
			print "_$i ON $table_name ( $i ) ;n";
		}
		printf "nCREATE TRIGGER T_P_$table_name";
		printf "_$references_table BEFORE INSERT OR UPDATE ON $table_name FOR EACH ROWn" ;
		printf "EXECUTE PROCEDUREn";
		printf "check_primary_key(";
		$val=0;
		foreach $i ( split(/,/ , $columns ) ){
			print "'$i',";
			$val=$val+1 ;
		}
		print "'$references_table',";
		
		$t=1;
		foreach $i ( split(/,/,$columns ) ){
			print "'$i'";
			if ( $t < $val ) {
				printf ",";
			}	
			$t=$t+1;
		}
		print " );nn";
		printf "CREATE TRIGGER T_F_D_$references_table";
		printf "_$table_name BEFORE DELETE ON $references_table FOR EACH ROWn" ;
		printf "EXECUTE PROCEDUREn";
		printf "check_foreign_key(1,'cascade',";
		$val=0;
		foreach $i ( split(/,/ , $columns ) ){
			print "'$i',";
			$val=$val+1 ;
		}
		print "'$table_name',";
		
		$t=1;
		foreach $i ( split(/,/,$columns ) ){
			print "'$i'";
			if ( $t < $val ) {
				printf ",";
			}	
			$t=$t+1;
		}
		print " );nn";
		printf "CREATE TRIGGER T_F_U_$references_table";
		printf "_$table_name AFTER UPDATE ON $references_table FOR EACH ROWn" ;
		printf "EXECUTE PROCEDUREn";
		printf "check_foreign_key(1,'cascade',";
		$val=0;
		foreach $i ( split(/,/ , $columns ) ){
			print "'$i',";
			$val=$val+1 ;
		}
		print "'$table_name',";
		
		$t=1;
		foreach $i ( split(/,/,$columns ) ){
			print "'$i'";
			if ( $t < $val ) {
				printf ",";
			}	
			$t=$t+1;
		}
		print " );nn";
		if ($table_name ne $old_name ){	
			printf "-- ********************************nnn";
		}
		$old_name=$table_name ;
	 }
	 }
	 if ($str =~  /^);/ ) {
	    $is_create = 0 ;
	 }
}

						