将perl脚本变成乱糟糟的一团

大佬教程收集整理的这篇文章主要介绍了将perl脚本变成乱糟糟的一团，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

#!/usr/bin/perl

while( <> )
{
	if( /^#/ )
	{
		if( /^#!/ )
		{
			print $_;
		}
		next;
	}
	if( /##/ )
	{
		print $_;
		next;
	}

	next if( /^\s+#/ );
	chomp;
	s/\s+#.*//g;
	s/;#.*/;/g;
	s/;\s+#.*/;/g;
	s/\t/ /g;
	s/    / /g;
	s/<<.*;/"/g;
	s/END/";/;
	s/SQL_END/";/;
	print $_;
}

大佬总结

以上是大佬教程为你收集整理的将perl脚本变成乱糟糟的一团全部内容，希望文章能够帮你解决将perl脚本变成乱糟糟的一团所遇到的程序开发问题。

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

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。