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

前端之家收集整理的这篇文章主要介绍了对存储过程表的列及值添加标记,方便修改前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家,也给大家做个参考。

#!/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","$_              --$i\n";#prinf comment
			$i= $i+1;
		}else{
			$i = 0;
			print FILEOUT  "$_\n";
		}
	}
	close FILEOUT;
  }
}
close logo;	

以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。

原文链接:https://www.f2er.com/Perl/458914.html

猜你在找的Perl相关文章