对存储过程表的列及值添加标记，方便修改

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/usr/bin/perl -w
use warnings;

if(open LOGO,"<sql.txt" or die "ncan't find File: $!n"){
  if(open FILEOUT,">fileout.txt" or die "nFile create error: $!n"){
  	$i = 0;
	while(<LOGO>){
		#delete n
		chomp($_);
		# trim space
		s/^s+
		 |
		 s+$
		 //xg;
		 #check start text
		if(/insert into|values/i){
			$i = 1;
		}elsif(/;/){
			$i = 0;
		}
		#check $_ not contain ''
		if($_ ne ''&& $i!=0){
			printf FILEOUT "%80s","$_              --$in";#prinf comment
			$i= $i+1;
		}else{
			$i = 0;
			print FILEOUT  "$_n";
		}
	}
	close FILEOUT;
  }
}
close LOGO;	

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!