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

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

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

#!/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 $_;
}

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

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

（编辑：李大同）

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