sub compress {
	my ($codevalue)=@_;
	$codevalue =~ s/不支持Flash//;
	$codevalue =~ s/^\s+//;
	$codevalue =~ s/<!--(.*?)-->//g;
	$codevalue =~ s/(http|https):\/\//$1:~~/g;
	$codevalue =~ s/\s*\/\/.*?\n/\n/g;
	$codevalue =~ s/(http|https):~~/$1:\/\//g;
	$codevalue =~ s/(^| |\t)\/\/.*$//g;
	$codevalue =~ s!/\*.*?\*/\s*!!sg;
	$codevalue =~ s/(;|\n)\t+/$1/g;
	$codevalue =~ s/\n{2,}/\n/g;
	$codevalue =~ s/(if|else)\s*(\(.*?\))?\s*([\w\{])/$1$2$3/sg;
	$codevalue =~ s/[ \t]*([\=\,\+\-\*\&\|\:\?\< \>\{\}\(\)\[\]]+)[ \t]*/$1/g;
	$codevalue =~ s/^\s*\n//mg;
	$codevalue =~ s/(;)\s*/$1/g;
	$codevalue =~ s/(\r\n|\n)//g;
	$codevalue =~ s/({)(\s*?)(\S)/$1$3/g;
	return $codevalue;
}

my $sth=&execsql($dbh,"select * from DB");
my $rc = $sth->rows;
print $rc;

#标量转数组
$ckVal = '标-量-转-数-组-函-数';
$pattern='-';
@categories = split(/-/, $ckVal);