下面是编程之家 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)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

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